--- a/ClassDescription.st	Tue Mar 01 19:07:31 2016 +0000
+++ b/ClassDescription.st	Wed Mar 02 07:54:29 2016 +0000
@@ -3387,7 +3387,7 @@
      No recompilation or updates are done and no changeList records are written.
      This is NOT for general use."
 
-    instvars := (aCollectionOfStrings collect:[:varName| varName asSymbol]) asArray.
+    instvars := aCollectionOfStrings collect:[:varName| varName asSymbol] as:Array.
 
     "
      Point instVarNames
@@ -3396,6 +3396,14 @@
     "
 !
 
+setInstVarNamesArray:anArrayOfSymbols
+    "set the instance variable names from an Array of Symbols.
+     No recompilation or updates are done and no changeList records are written.
+     This is NOT for general use."
+
+    instvars := anArrayOfSymbols.
+!
+
 setInstanceVariableString:aString
     "set the classes instvarnames string.
      No recompilation or updates are done and no changeList records are written.