diff --git a/src/runtime/haskell/PGF/Generate.hs b/src/runtime/haskell/PGF/Generate.hs
index 5073b34ca..3e4285617 100644
--- a/src/runtime/haskell/PGF/Generate.hs
+++ b/src/runtime/haskell/PGF/Generate.hs
@@ -148,5 +148,5 @@ restart :: RandomGen g => g -> (g -> [a]) -> [a]
 restart g f =
   let (g1,g2) = split g
   in case f g1 of
-       []     -> restart g2 f
+       []     -> []
        (x:xs) -> x : restart g2 f