diff --git a/WEditorHyphen.cabal b/WEditorHyphen.cabal
--- a/WEditorHyphen.cabal
+++ b/WEditorHyphen.cabal
@@ -1,5 +1,5 @@
 name:                WEditorHyphen
-version:             0.1.0.3
+version:             0.1.0.4
 synopsis:            Language-specific hyphenation policies for WEditor.
 
 description:
diff --git a/WEditorHyphen/LangHyphen.hs b/WEditorHyphen/LangHyphen.hs
--- a/WEditorHyphen/LangHyphen.hs
+++ b/WEditorHyphen/LangHyphen.hs
@@ -75,7 +75,7 @@
           -- Add a break if adding a segment would exceed the remaining space.
           | (n+k > t-(length (hyphenChar l)) && not (null ks)) || n+k > t = n:(combine w k ks)
           -- Append the next segment to the current segment.
-          | otherwise = combine w (n+k) ks
+          | otherwise = combine t (n+k) ks
   isWordChar (LangHyphen l _) = wordChars l
   isWhitespace (LangHyphen l _) = whitespaceChars l
   appendHyphen (LangHyphen l _) = (++ hyphenChar l)
diff --git a/test/TestLangHyphen.hs b/test/TestLangHyphen.hs
--- a/test/TestLangHyphen.hs
+++ b/test/TestLangHyphen.hs
@@ -89,12 +89,17 @@
        (setLineWidth (breakWords (langHyphen English_US)) 8)
        "something's"
        [hyphenLine "some",
-        endLine"thing's"]),
+        endLine "thing's"]),
     ("langHyphen English_US trailing apostrophe not left hanging", checkLineBreak
        (setLineWidth (breakWords (langHyphen English_US)) 8)
        "    aren't"
        [innerLine "    ",
-        endLine "aren't"])
+        endLine "aren't"]),
+    ("langHyphen English_US multiple segments on first line", checkLineBreak
+       (setLineWidth (breakWords (langHyphen English_US)) 12)
+       "the existentialism"
+       [hyphenLine "the existen",
+        endLine "tialism"])
   ]
 
 checkLineBreak b x ys = do