--- a/Behavior.st	Thu May 24 18:07:14 2018 +0200
+++ b/Behavior.st	Thu May 24 21:02:00 2018 +0200
@@ -1674,14 +1674,15 @@
     "set the receiver's method dictionary and flush inline caches."
 
     dict isNil ifTrue:[
-	self error:'attempt to set methodDictionary to nil.' mayProceed:true.
-	^ self
+        self proceedableError:'attempt to set methodDictionary to nil.'.
+        ^ self
     ].
     self setMethodDictionary:dict.
     ObjectMemory flushCaches.
 
-    "Created: 5.6.1996 / 11:29:36 / stefan"
-    "Modified: 7.6.1996 / 08:39:51 / stefan"
+    "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"
 !
 
 package