--- a/Cons.st	Sat Apr 16 22:55:37 2011 +0200
+++ b/Cons.st	Fri Apr 29 10:37:54 2011 +0200
@@ -96,6 +96,28 @@
      Cons fromArray:#(1)    
      Cons fromArray:(1 to:10000)    
     "
+!
+
+makeList:size
+    |first prev this|
+
+    size == 0 ifTrue:[^ nil].
+    first := prev := self car:nil cdr:nil.
+    2 to:size do:[:n |
+        this := self car:nil cdr:nil.
+        prev cdr:this.
+        prev := this
+    ].
+    ^ first
+
+    "
+     (self makeList:100) size
+     (self makeList:1000) size 
+     (self makeList:10000) size 
+    "
+
+    "Created: / 28-04-2011 / 00:37:11 / cg"
+    "Modified: / 29-04-2011 / 10:37:41 / cg"
 ! !
 
 !Cons class methodsFor:'sExpressions'!
@@ -583,9 +605,9 @@
 !Cons class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic2/Cons.st,v 1.15 2010-08-08 18:59:46 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic2/Cons.st,v 1.16 2011-04-29 08:37:54 cg Exp $'
 !
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libbasic2/Cons.st,v 1.15 2010-08-08 18:59:46 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic2/Cons.st,v 1.16 2011-04-29 08:37:54 cg Exp $'
 ! !