--- a/ClassBuilder.st	Wed Mar 14 11:23:32 2007 +0100
+++ b/ClassBuilder.st	Wed Mar 14 16:49:24 2007 +0100
@@ -1231,8 +1231,13 @@
     oldClassToBecomeNew notNil ifTrue:[
         "/ old was an autoloaded class - make it the new one
         "/ and flush ...
-        oldClassToBecomeNew class becomeSameAs:newClass class.
+
+"/        (ObjectMemory whoReferences:oldClassToBecomeNew class) notEmpty ifTrue:[
+"/            self halt.
+"/        ].
         oldClassToBecomeNew becomeSameAs:newClass.
+"/        oldClassToBecomeNew class becomeSameAs:newClass class.
+
         ObjectMemory flushCaches.
     ].
 
@@ -1987,7 +1992,7 @@
                     self
                         notifyTodo:msg position:nil
                         className:newName selector:nil
-                        severity:#error priority:(Tools::ToDoList highPriority) 
+                        severity:(Tools::ToDoList errorSeverity) priority:(Tools::ToDoList highPriority) 
                         equalityParameter:nm
                         checkAction:[:e | 
                             |superClass class|
@@ -2031,7 +2036,7 @@
                         self
                             notifyTodo:msg position:nil
                             className:newName selector:nil
-                            severity:#error priority:(Tools::ToDoList highPriority) 
+                            severity:(Tools::ToDoList errorSeverity) priority:(Tools::ToDoList highPriority) 
                             equalityParameter:nm
                             checkAction:[:e | 
                                 |class|
@@ -2129,5 +2134,5 @@
 !ClassBuilder class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic/ClassBuilder.st,v 1.70 2007-03-13 17:41:03 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/ClassBuilder.st,v 1.71 2007-03-14 15:49:24 cg Exp $'
 ! !