--- a/Class.st	Wed Aug 18 17:16:40 1999 +0200
+++ b/Class.st	Wed Aug 18 17:17:36 1999 +0200
@@ -3757,7 +3757,7 @@
 
     cls := self.
     self isMeta ifFalse:[
-	cls := self class
+        cls := self class
     ].
 
 "/    m := cls compiledMethodAt:#version.
@@ -3769,20 +3769,18 @@
 "/    newString := mgr updatedRevisionStringOf:cls forRevision:newRevision with:vs. 
 "/    newString isNil ifTrue:[^ false].
 
-    MethodRedefinitionSignal handle:[:ex |
-	ex proceedWith:#keep 
-    ] do:[
-	Class withoutUpdatingChangesDo:[
-	    Compiler compile:'version
+    Class methodRedefinitionSignal answer:#keep do:[
+        Class withoutUpdatingChangesDo:[
+            Compiler compile:'version
     ^ ''' , newRevisionString , '''
 '
-		     forClass:cls 
-		     inCategory:#documentation 
-		     notifying:nil 
-		     install:true 
-		     skipIfSame:false 
-		     silent:true. 
-	]
+                     forClass:cls 
+                     inCategory:#documentation 
+                     notifying:nil 
+                     install:true 
+                     skipIfSame:false 
+                     silent:true. 
+        ]
     ].
 "/ ('updated to :' , newRevisionString) printNL.
 
@@ -3900,5 +3898,5 @@
 !Class class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic/Class.st,v 1.345 1999-08-17 13:48:46 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/Class.st,v 1.346 1999-08-18 15:17:36 cg Exp $'
 ! !

--- a/GenericException.st	Wed Aug 18 17:16:40 1999 +0200
+++ b/GenericException.st	Wed Aug 18 17:17:36 1999 +0200
@@ -778,16 +778,14 @@
 
     NotifierString isNil ifTrue:[
         ^ self name asString
-    ] ifFalse:[
-         (NotifierString startsWith:Character space) ifTrue:[
-            ^ self parent description, NotifierString
-        ] ifFalse:[
-            ^ NotifierString
-        ].
-    ]
+    ].
+    (NotifierString startsWith:Character space) ifTrue:[
+        ^ self parent description, NotifierString
+    ].
+    ^ NotifierString
 
     "
-      Object errorSignal description
+     Object errorSignal description
     "
 
     "Created: / 23.7.1999 / 14:22:25 / stefan"
@@ -1562,6 +1560,6 @@
 !GenericException class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic/GenericException.st,v 1.23 1999-08-04 20:18:35 stefan Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/GenericException.st,v 1.24 1999-08-18 15:17:04 cg Exp $'
 ! !
 GenericException initialize!