diff --git a/Libraries/Gast/Gen.icl b/Libraries/Gast/Gen.icl
index d4fa9f567710091aac18f9dd5bcd2b73fe0efba7..4c7a431e4113a43ef18b9cbc7a7033c5c59b70fa 100644
--- a/Libraries/Gast/Gen.icl
+++ b/Libraries/Gast/Gen.icl
@@ -118,7 +118,8 @@ ggen{|Real|} s
 		= takeWhile (\r -> abs r <= toReal (s.maxDepth - s.depth)) l
 		= l
 where
-	l = [0.0
+	//       -nan    nan        inf     -inf
+	l = [0.0,0.0/0.0,~(0.0/0.0),1.0/0.0,-1.0/0.0
 		:interleave
 			[r \\ x <- diag [1:prims] [1:prims] (\n d.toReal n/toReal d), r <- [x,~ x]]
 		(interleave