--- a/ClassBuilder.st	Tue Feb 01 13:39:03 2005 +0100
+++ b/ClassBuilder.st	Tue Feb 01 16:31:59 2005 +0100
@@ -275,6 +275,10 @@
 
 !ClassBuilder methodsFor:'accessing'!
 
+classClass
+    ^ Class
+!
+
 metaclass:metaclassOrASubclassOfIt
     metaclass := metaclassOrASubclassOfIt.
 !
@@ -1228,7 +1232,7 @@
         newMetaclass := metaclass new.
     ].
     superClass isNil ifTrue:[
-        classesSuperclass := Class.
+        classesSuperclass := self classClass.
     ] ifFalse:[
         classesSuperclass := superClass class.
     ].
@@ -2004,5 +2008,5 @@
 !ClassBuilder class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic/ClassBuilder.st,v 1.41 2004-11-16 21:20:29 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/ClassBuilder.st,v 1.42 2005-02-01 15:31:59 james Exp $'
 ! !