--- a/Class.st	Mon Sep 18 14:31:38 2000 +0200
+++ b/Class.st	Mon Sep 18 19:10:06 2000 +0200
@@ -523,7 +523,7 @@
     |prevVarNames varNames any|
 
     (aString = self classVariableString) ifFalse:[
-        prevVarNames := self classVarNames.
+        prevVarNames := self classVarNames asOrderedCollection.
         classvars := aString.
         varNames := self classVarNames.
 
@@ -4477,5 +4477,5 @@
 !Class class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic/Class.st,v 1.379 2000-09-16 18:42:11 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/Class.st,v 1.380 2000-09-18 17:10:06 cg Exp $'
 ! !