--- a/Behavior.st	Tue Mar 12 20:53:42 2019 +0100
+++ b/Behavior.st	Tue Mar 12 20:56:20 2019 +0100
@@ -1553,16 +1553,16 @@
     |dict newDict|
 
     (Smalltalk
-	changeRequest:#methodInClassRemoved
-	with:(Array with:self with:aSelector)
+        changeRequest:#methodInClassRemoved
+        with:(Array with:self with:aSelector)
     ) ifFalse:[
-	^ false
+        ^ false
     ].
 
     dict := self methodDictionary.
     newDict := dict removeKeyAndCompress:aSelector.
     newDict isNil ifTrue:[
-    ^ false.
+        ^ false.
     ].
     self setMethodDictionary:newDict.
 
@@ -1577,6 +1577,7 @@
 
     "Modified: / 12-06-1996 / 11:54:29 / stefan"
     "Modified: / 19-07-2010 / 11:22:26 / Jan Vrany <jan.vrany@fit.cvut.cz>"
+    "Modified (format): / 12-03-2019 / 20:45:40 / Claus Gittinger"
 !
 
 containingNameSpace
@@ -1684,7 +1685,7 @@
 
     "Created: / 05-06-1996 / 11:29:36 / stefan"
     "Modified: / 07-06-1996 / 08:39:51 / stefan"
-    "Modified: / 24-05-2018 / 20:26:39 / Claus Gittinger"
+    "Modified: / 12-03-2019 / 20:46:58 / Claus Gittinger"
 !
 
 package
@@ -3299,12 +3300,9 @@
         ] ifFalse:[    
             methodDictionary := MethodDictionary withAll:dict.
             methodDictionary isNil ifTrue:[
-
-                "/ refuse to do this
+                "/ refuse to do this.
                 "/ (can only happen in case of memory allocation trouble,
-                "/  where the allocation failed and some exception handler returned
-                "/  nil ...)
-
+                "/  where the allocation failed and some exception handler returned nil)
                 self proceedableError:'cannot set methodDictionary to nil'.
                 ^ self.
             ]
@@ -3316,6 +3314,7 @@
     "Modified: / 12-06-1996 / 13:58:55 / stefan"
     "Modified: / 22-01-1997 / 21:10:48 / cg"
     "Modified: / 03-03-2019 / 20:06:57 / Claus Gittinger"
+    "Modified (format): / 12-03-2019 / 20:47:47 / Claus Gittinger"
 !
 
 setSuperclass:aClass