--- a/ClassDescription.st	Wed Jul 24 10:34:08 2002 +0200
+++ b/ClassDescription.st	Wed Jul 24 11:16:28 2002 +0200
@@ -830,17 +830,18 @@
     "return a collection of the instance variable name-strings"
 
     instvars isNil ifTrue:[
-	^ OrderedCollection new
+        ^ #() "/ OrderedCollection new
     ].
     instvars isString ifTrue:[
-	instvars := instvars asCollectionOfWords asArray.
-	^ instvars
+        instvars := instvars asCollectionOfWords asArray.
     ].
 
     ^ instvars
 
     "
      Point instVarNames  
+     SortedCollection instVarNames  
+     SortedCollection allInstVarNames  
     "
 
     "Modified: 22.8.1997 / 17:43:05 / cg"
@@ -3970,6 +3971,6 @@
 !ClassDescription class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic/ClassDescription.st,v 1.139 2002-07-24 08:34:08 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/ClassDescription.st,v 1.140 2002-07-24 09:16:28 cg Exp $'
 ! !
 ClassDescription initialize!