--- a/Set.st	Sat Apr 09 00:49:31 2005 +0200
+++ b/Set.st	Sat Apr 09 00:55:22 2005 +0200
@@ -114,16 +114,18 @@
 decodeFromLiteralArray:anArray
     "create & return a new instance from information encoded in anArray."
 
-    |col|
+    |set 
+     sz "{ Class: SmallInteger }"|
 
-    col := self new:anArray size - 1.
-    anArray from:2 do:[:el | col add:el decodeAsLiteralArray].
-    ^ col
+    sz := anArray size.
+    set := self new:sz-1.
+    2 to:sz do:[:idx| set add:(anArray at:idx) decodeAsLiteralArray].
+    ^ set
 
     "
      (Set with:1234
-	  with:(1 @ 2)
-	  with:'hello'
+          with:(1 @ 2)
+          with:'hello'
      ) literalArrayEncoding decodeAsLiteralArray    
     "
 !
@@ -1167,7 +1169,7 @@
 !Set class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic/Set.st,v 1.91 2004-09-30 12:01:24 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/Set.st,v 1.92 2005-04-08 22:54:37 stefan Exp $'
 ! !
 
 Set initialize!