--- a/Cons.st	Mon Sep 26 18:37:32 2011 +0200
+++ b/Cons.st	Tue Sep 27 11:33:41 2011 +0200
@@ -536,7 +536,14 @@
      (Cons fromArray:#(1)) take:0  
      (Cons fromArray:#()) take:3  
      (Cons fromArray:(1 to: 1000)) take:999  
+
+     |gen allNumbers|
+     gen := [:n | LazyCons car:n cdr:[ gen value:n+1 ]].
+     allNumbers := gen value:1. 
+     allNumbers take:10
     "
+
+    "Modified (comment): / 27-09-2011 / 11:31:38 / cg"
 ! !
 
 !Cons methodsFor:'printing'!
@@ -608,9 +615,9 @@
 !Cons class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic2/Cons.st,v 1.17 2011-04-29 08:38:17 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic2/Cons.st,v 1.18 2011-09-27 09:33:41 cg Exp $'
 !
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libbasic2/Cons.st,v 1.17 2011-04-29 08:38:17 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic2/Cons.st,v 1.18 2011-09-27 09:33:41 cg Exp $'
 ! !