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