--- a/ClassBuilder.st	Thu Aug 08 00:46:41 2002 +0200
+++ b/ClassBuilder.st	Fri Aug 09 14:27:16 2002 +0200
@@ -417,6 +417,11 @@
         ]
     ].
 
+    (oldClass notNil and:[oldClass isNameSpace]) ifTrue:[
+        self error:'class exists as namespace'.
+        ^ nil
+    ].
+
     (oldClass isBehavior and:[oldClass isLoaded not]) ifTrue:[
         oldClassToBecomeNew := oldClass
     ].
@@ -1911,5 +1916,5 @@
 !ClassBuilder class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic/ClassBuilder.st,v 1.15 2002-05-02 08:51:36 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/ClassBuilder.st,v 1.16 2002-08-09 12:27:16 cg Exp $'
 ! !