--- a/ClassDescription.st	Wed Nov 15 13:42:56 2000 +0100
+++ b/ClassDescription.st	Wed Nov 15 13:43:56 2000 +0100
@@ -575,14 +575,14 @@
     Class nameSpaceQuerySignal answer:(self nameSpace)
     do:[
         args := Array 
-                    with:(self name)
+                    with:(self nameWithoutPrefix asSymbol)
                     with:newNames
                     with:(self classVariableString)
                     with:''
                     with:(self category).
 
         sel numArgs == 6 ifTrue:[
-            args := args copyWith:(self owner).
+            args := args copyWith:(self owningClass).
         ].
 
         newClass := self superclass
@@ -603,7 +603,7 @@
 removeInstVarName:anInstVar
     |sel newClass args newNames|
 
-    newNames := self instVarNames.
+    newNames := self instVarNames asOrderedCollection.
     newNames remove:anInstVar ifAbsent:[^ self].
     newNames := newNames asStringWith:Character space.
 
@@ -615,14 +615,14 @@
     Class nameSpaceQuerySignal answer:(self nameSpace)
     do:[
         args := Array 
-                    with:(self name)
+                    with:(self nameWithoutPrefix asSymbol)
                     with:newNames
                     with:(self classVariableString)
                     with:''
                     with:(self category).
 
         sel numArgs == 6 ifTrue:[
-            args := args copyWith:(self owner).
+            args := args copyWith:(self owningClass).
         ].
 
         newClass := self superclass
@@ -3785,6 +3785,6 @@
 !ClassDescription class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic/ClassDescription.st,v 1.113 2000-10-30 12:57:52 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/ClassDescription.st,v 1.114 2000-11-15 12:43:56 cg Exp $'
 ! !
 ClassDescription initialize!