--- a/Metaclass.st	Sat Jun 20 18:18:18 1998 +0200
+++ b/Metaclass.st	Sat Jun 20 18:19:10 1998 +0200
@@ -1344,13 +1344,15 @@
     "/ this forces recompilation (recursively) if needed
     "/ (dont update change file for the subclass changes)
 
-    Class withoutUpdatingChangesDo:[
-        oldClass subclasses copy do:[:aClass |
+    Class classRedefinitionSignal answer:#keep do:[
+        Class withoutUpdatingChangesDo:[
+            oldClass subclasses copy do:[:aClass |
 " "
-            Transcript showCR:'changing superclass of:' , aClass name.
-            Transcript endEntry.
+                Transcript showCR:'changing superclass of:' , aClass name.
+                Transcript endEntry.
 " "
-            aClass superclass:newClass
+                aClass superclass:newClass
+            ]
         ]
     ].
 
@@ -1405,7 +1407,7 @@
 
     "Created: / 26.5.1996 / 11:55:26 / cg"
     "Modified: / 18.6.1996 / 14:19:39 / stefan"
-    "Modified: / 18.6.1998 / 22:49:40 / cg"
+    "Modified: / 20.6.1998 / 18:08:25 / cg"
 !
 
 name:newName inEnvironment:aSystemDictionary
@@ -1958,6 +1960,6 @@
 !Metaclass class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic/Metaclass.st,v 1.127 1998-06-18 21:14:22 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/Metaclass.st,v 1.128 1998-06-20 16:19:10 cg Exp $'
 ! !
 Metaclass initialize!