--- a/ClassBuilder.st	Wed May 12 15:27:08 2004 +0200
+++ b/ClassBuilder.st	Thu May 13 13:37:57 2004 +0200
@@ -1144,10 +1144,10 @@
             environment privateClassesAt:className put:newClass.
         ] ifFalse:[
             environment at:className put:newClass.
-        ]
-    ].
-    (oldClass isNil and:[changed and:[superClass ~~ Autoload]]) ifTrue:[
-        newClass addChangeRecordForClass:newClass.
+        ].
+        (oldClass isNil and:[changed and:[superClass ~~ Autoload]]) ifTrue:[
+            newClass addChangeRecordForClass:newClass.
+        ].
     ].
 
     oldClass notNil ifTrue:[
@@ -1171,9 +1171,9 @@
     environment notNil ifTrue:[
         buildingPrivateClass ifTrue:[
             environment changed.
-        ]
+        ].
+        self environmentChanged:#newClass with:newClass.
     ].
-    self environmentChanged:#newClass with:newClass.
 
     "/ be very careful, when adding classes
     "/ to a namespace or adding a privateClass. 
@@ -1969,5 +1969,5 @@
 !ClassBuilder class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic/ClassBuilder.st,v 1.34 2004-03-19 13:02:12 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/ClassBuilder.st,v 1.35 2004-05-13 11:37:57 penk Exp $'
 ! !