# HG changeset patch
# User Claus Gittinger <cg@exept.de>
# Date 824849308 -3600
# Node ID e4957d71aadf919dab309978d0255fca210340ab
# Parent  7db01e9a9636efc835032abf25e128274a80305c
checkin from browser

diff -r 7db01e9a9636 -r e4957d71aadf Class.st
--- a/Class.st	Tue Feb 20 21:47:27 1996 +0100
+++ b/Class.st	Tue Feb 20 21:48:28 1996 +0100
@@ -1781,14 +1781,14 @@
     |cat code|
 
     Class withoutUpdatingChangesDo:[
-	Class methodRedefinitionSignal handle:[:ex |
-	    ex proceed
-	] do:[
-	    cat := (self compiledMethodAt:aSelector) category.
-	    code := self sourceCodeAt:aSelector.
-	    self compilerClass compile:code forClass:self inCategory:cat
-	]
+        MethodRedefinitionSignal ignoreIn:[
+            cat := (self compiledMethodAt:aSelector) category.
+            code := self sourceCodeAt:aSelector.
+            self compilerClass compile:code forClass:self inCategory:cat
+        ]
     ]
+
+    "Modified: 20.2.1996 / 20:23:21 / cg"
 !
 
 recompileAll
@@ -3887,6 +3887,6 @@
 !Class class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic/Class.st,v 1.139 1996-02-11 16:30:49 ca Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/Class.st,v 1.140 1996-02-20 20:48:28 cg Exp $'
 ! !
 Class initialize!