diff --git a/Symantic/Document/Plain.hs b/Symantic/Document/Plain.hs
--- a/Symantic/Document/Plain.hs
+++ b/Symantic/Document/Plain.hs
@@ -304,12 +304,12 @@
 	ul ds =
 		catV $
 			(<$> ds) $ \d ->
-				from (Word '-')<>space<>flushlinePlain<>align d<>flushlinePlain
+				from (Word '-')<>space<>flushlinePlain<>align d{-<>flushlinePlain-}
 	ol ds =
 		catV $ snd $
 			Fold.foldr
 			 (\d (i, acc) ->
-				(pred i, (from i<>from (Word '.')<>space<>flushlinePlain<>align d<>flushlinePlain) : acc)
+				(pred i, (from i<>from (Word '.')<>space<>flushlinePlain<>align d{-<>flushlinePlain-}) : acc)
 			 ) (Fold.length ds, []) ds
 instance Spaceable d => Justifiable (Plain d) where
 	justify p = (\x -> flushlinePlain <> x <> flushlinePlain) $ Plain $ \inh ->
diff --git a/symantic-document.cabal b/symantic-document.cabal
--- a/symantic-document.cabal
+++ b/symantic-document.cabal
@@ -2,7 +2,7 @@
 -- PVP:  +-+------- breaking API changes
 --       | | +----- non-breaking API additions
 --       | | | +--- code changes with no API change
-version: 1.5.0.20190711
+version: 1.5.1.20191028
 category: Text
 synopsis: Document symantics.
 description: Symantics for generating documents.