--- a/Metaclass.st	Thu Jul 17 15:45:44 2003 +0200
+++ b/Metaclass.st	Thu Jul 17 15:46:13 2003 +0200
@@ -147,6 +147,8 @@
 
     |builder|
 
+    self instanceVariableString asStringCollection = aString asStringCollection ifTrue:[^ self].
+
     builder := ClassBuilder new.
     builder oldMetaclass:self instanceVariableNames:aString.
     builder rebuildForChangedInstanceVariables.
@@ -530,7 +532,7 @@
 !Metaclass class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic/Metaclass.st,v 1.185 2003-06-20 07:31:57 stefan Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/Metaclass.st,v 1.186 2003-07-17 13:46:13 cg Exp $'
 ! !
 
 Metaclass initialize!