--- a/Metaclass.st	Thu May 02 10:57:11 2002 +0200
+++ b/Metaclass.st	Thu May 02 10:57:44 2002 +0200
@@ -251,7 +251,7 @@
     "
     |builder|
 
-    builder := ClassBuilder new.
+    builder := self newClassBuilder.
     builder name:newName 
         in:aSystemDictionaryOrClass
         subclassOf:aClass
@@ -320,6 +320,10 @@
     ^ newClass
 
     "Modified: 1.4.1997 / 15:44:50 / stefan"
+!
+
+newClassBuilder
+    ^ ClassBuilder new.
 ! !
 
 !Metaclass methodsFor:'enumerating'!
@@ -504,6 +508,6 @@
 !Metaclass class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic/Metaclass.st,v 1.181 2001-10-08 09:46:53 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/Metaclass.st,v 1.182 2002-05-02 08:57:44 cg Exp $'
 ! !
 Metaclass initialize!