diff --git a/src/runtime/haskell/PGF/Haskell.hs b/src/runtime/haskell/PGF/Haskell.hs
index 87cecc5d4..8b99a61e1 100644
--- a/src/runtime/haskell/PGF/Haskell.hs
+++ b/src/runtime/haskell/PGF/Haskell.hs
@@ -33,6 +33,7 @@ fromStr = from False id
     from space cap ts =
       case ts of
         [] -> []
+        TK "":ts -> from space cap ts
         TK s:ts -> put s++from True cap ts
         BIND:ts -> from False cap ts
         SOFT_BIND:ts -> from False cap ts