--- a/Coll.st	Tue Jan 14 16:20:58 1997 +0100
+++ b/Coll.st	Tue Jan 14 16:26:36 1997 +0100
@@ -552,6 +552,14 @@
     ^ self addAllTo:(IdentitySet new:self size)
 !
 
+asList
+    "return a new List with the receiver collections elements"
+
+    ^ self addAllTo:(List new:self size)
+
+    "Created: 14.2.1997 / 16:25:23 / cg"
+!
+
 asOrderedCollection
     "return a new OrderedCollection with the receiver collections elements"
 
@@ -1534,6 +1542,6 @@
 !Collection class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic/Attic/Coll.st,v 1.62 1997-01-08 23:36:50 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/Attic/Coll.st,v 1.63 1997-01-14 15:26:36 cg Exp $'
 ! !
 Collection initialize!

--- a/Collection.st	Tue Jan 14 16:20:58 1997 +0100
+++ b/Collection.st	Tue Jan 14 16:26:36 1997 +0100
@@ -552,6 +552,14 @@
     ^ self addAllTo:(IdentitySet new:self size)
 !
 
+asList
+    "return a new List with the receiver collections elements"
+
+    ^ self addAllTo:(List new:self size)
+
+    "Created: 14.2.1997 / 16:25:23 / cg"
+!
+
 asOrderedCollection
     "return a new OrderedCollection with the receiver collections elements"
 
@@ -1534,6 +1542,6 @@
 !Collection class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic/Collection.st,v 1.62 1997-01-08 23:36:50 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/Collection.st,v 1.63 1997-01-14 15:26:36 cg Exp $'
 ! !
 Collection initialize!