diff --git a/src/runtime/haskell/PGF/Probabilistic.hs b/src/runtime/haskell/PGF/Probabilistic.hs
index 095ade022..7d8d58134 100644
--- a/src/runtime/haskell/PGF/Probabilistic.hs
+++ b/src/runtime/haskell/PGF/Probabilistic.hs
@@ -68,7 +68,7 @@ mkProbabilities pgf probs =
           where
             deflt = case length [f | (Nothing,f) <- pfs] of
                       0 -> 0
-                      n -> (1 - sum [d | (Just d,f) <- pfs]) / fromIntegral n
+                      n -> max 0 ((1 - sum [d | (Just d,f) <- pfs]) / fromIntegral n)
 
 -- | Returns the default even distibution.
 defaultProbabilities :: PGF -> Probabilities