diff -r b4b36961d1bc -r fc6505852b73 Class.st
--- a/Class.st	Mon Sep 09 19:04:43 1996 +0200
+++ b/Class.st	Tue Sep 10 00:55:59 1996 +0200
@@ -10,6 +10,8 @@
  hereby transferred.
 "
 
+'From Smalltalk/X, Version:2.10.9 on 9-sep-1996 at 22:51:47'                    !
+
 ClassDescription subclass:#Class
 	instanceVariableNames:'classvars comment subclasses classFilename package revision
 		history'
@@ -830,35 +832,36 @@
     |oldMethod|
 
     CatchMethodRedefinitions ifTrue:[
-	"check for attempts to redefine a method
-	 in a different package. Signal a resumable error if so.
-	 This allows tracing redefinitions of existing system methods
-	 when filing in alien code ....
-	 (which we may want to forbit sometimes)
-	"
-	oldMethod := self compiledMethodAt:newSelector.
-	oldMethod notNil ifTrue:[
-	    oldMethod package ~= newMethod package ifTrue:[
-		"
-		 attempt to redefine an existing method, which was
-		 defined in another package.
-		 If you continue in the debugger, the new method gets installed.
-		 Otherwise, the existing (old) method remains valid.
-
-		 You can turn of the catching of redefinitions by setting
-		   CatchMethodRedefinitions to false
-		 (also found in the NewLaunchers 'settings-misc' menu)
-		"
-		MethodRedefinitionSignal 
-		    raiseErrorString:('redefinition of ' , name , '>>' , newSelector) 
-	    ]
-	]
+        "check for attempts to redefine a method
+         in a different package. Signal a resumable error if so.
+         This allows tracing redefinitions of existing system methods
+         when filing in alien code ....
+         (which we may want to forbit sometimes)
+        "
+        oldMethod := self compiledMethodAt:newSelector.
+        oldMethod notNil ifTrue:[
+            oldMethod package ~= newMethod package ifTrue:[
+                "
+                 attempt to redefine an existing method, which was
+                 defined in another package.
+                 If you continue in the debugger, the new method gets installed.
+                 Otherwise, the existing (old) method remains valid.
+
+                 You can turn of the catching of redefinitions by setting
+                   CatchMethodRedefinitions to false
+                 (also found in the Launchers 'settings-misc' menu)
+                "
+                MethodRedefinitionSignal 
+                    raiseErrorString:('redefinition of ' , name , '>>' , newSelector) 
+            ]
+        ]
     ].
     (super addSelector:newSelector withMethod:newMethod) ifTrue:[
-	self addChangeRecordForMethod:newMethod.
+        self addChangeRecordForMethod:newMethod.
     ]
 
     "Created: 29.10.1995 / 19:42:42 / cg"
+    "Modified: 9.9.1996 / 22:39:32 / stefan"
 !
 
 removeSelector:aSelector
@@ -4015,6 +4018,6 @@
 !Class  class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic/Class.st,v 1.165 1996-09-07 12:02:28 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/Class.st,v 1.166 1996-09-09 22:55:59 stefan Exp $'
 ! !
 Class initialize!