diff --git a/WEditorHyphen.cabal b/WEditorHyphen.cabal
--- a/WEditorHyphen.cabal
+++ b/WEditorHyphen.cabal
@@ -1,5 +1,5 @@
 name:                WEditorHyphen
-version:             0.1.0.1
+version:             0.1.0.2
 synopsis:            Language-specific hyphenation policies for WEditor.
 
 description:
@@ -30,7 +30,7 @@
 
   build-depends:       base >= 4.0 && < 4.14,
                        hyphenation >= 0.3 && < 0.9,
-                       WEditor >= 0.2 && < 0.3
+                       WEditor >= 0.2.1 && < 0.3
 
   default-language:    Haskell2010
 
diff --git a/WEditorHyphen/LangHyphen.hs b/WEditorHyphen/LangHyphen.hs
--- a/WEditorHyphen/LangHyphen.hs
+++ b/WEditorHyphen/LangHyphen.hs
@@ -28,6 +28,7 @@
 ) where
 
 import Data.Char
+import Data.List
 import Text.Hyphenation
 import WEditor.LineWrap
 
@@ -78,6 +79,9 @@
   isWordChar (LangHyphen l _) = wordChars l
   isWhitespace (LangHyphen l _) = whitespaceChars l
   appendHyphen (LangHyphen l _) = (++ hyphenChar l)
+  endsWithHyphen (LangHyphen l _) cs
+    | null cs || null (hyphenChar l) = False
+    | otherwise = hyphenChar l `isSuffixOf` cs
 
 minWidth :: Language -> Int
 minWidth _ = 8
diff --git a/test/TestLangHyphen.hs b/test/TestLangHyphen.hs
--- a/test/TestLangHyphen.hs
+++ b/test/TestLangHyphen.hs
@@ -77,7 +77,14 @@
        (setLineWidth (breakWords (langHyphen English_US)) 8)
        "    \"The.\""
        [innerLine "    ",
-        endLine "\"The.\""])
+        endLine "\"The.\""]),
+    ("langHyphen English_US split at existing hyphen", checkLineBreak
+       (setLineWidth (breakWords (langHyphen English_US)) 8)
+       "pseudo-somethingness"
+       [innerLine "pseudo-",
+        hyphenLine "some",
+        hyphenLine "thing",
+        endLine "ness"])
   ]
 
 checkLineBreak b x ys = do