--- a/LazyCons.st	Wed Jun 25 19:07:25 2014 +0200
+++ b/LazyCons.st	Wed Jun 25 19:07:30 2014 +0200
@@ -86,12 +86,21 @@
     ^ true
 ! !
 
+!LazyCons methodsFor:'queries'!
+
+length
+    "redefined to avoid running forever..."
+
+    ^ 1
+! !
+
 !LazyCons class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic2/LazyCons.st,v 1.5 2011-09-27 09:42:50 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic2/LazyCons.st,v 1.6 2014-06-25 17:07:30 cg Exp $'
 !
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libbasic2/LazyCons.st,v 1.5 2011-09-27 09:42:50 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic2/LazyCons.st,v 1.6 2014-06-25 17:07:30 cg Exp $'
 ! !
+