--- a/Cons.st	Sun Oct 22 03:38:46 2017 +0000
+++ b/Cons.st	Wed Oct 25 12:47:23 2017 +0200
@@ -679,7 +679,7 @@
 
     [
         p isLazyValue not
-        and:[ (rest := p cdr) notNil ]
+        and:[ (rest := p cdr) isCons ]
     ] whileTrue:[
         len := len + 1.
         p := rest
@@ -691,6 +691,8 @@
      (Cons fromArray:#(1 2 3 4)) size    
      (Cons car:1 cdr:2) size          --> error (degenerated list)
     "
+
+    "Modified: / 25-10-2017 / 12:43:38 / cg"
 ! !
 
 !Cons methodsFor:'streaming'!