--- a/Behavior.st	Fri Jul 27 12:13:09 2018 +0200
+++ b/Behavior.st	Fri Jul 27 18:03:02 2018 +0200
@@ -1,3 +1,5 @@
+"{ Encoding: utf8 }"
+
 "
  COPYRIGHT (c) 1988 by Claus Gittinger
 	      All Rights Reserved
@@ -1246,7 +1248,6 @@
 ! !
 
 
-
 !Behavior methodsFor:'Compatibility-Dolphin'!
 
 allSubinstances
@@ -4930,30 +4931,33 @@
 
     |l m cls|
 
-    "JV @ 2010-08-22: Rewritten to respect lookup object."
-    (l := self lookupObject) notNil ifTrue:[
-	^ (l
-	    lookupMethodForSelector:aSelector
-	    directedTo:self
-	    for: nil "Fake receiver"
-	    withArguments: nil "Fake arguments"
-	    from: thisContext methodHome sender
-	    ilc: nil "fake ilc")
+    Error handle:[:ex |
+    ] do:[        
+        "JV @ 2010-08-22: Rewritten to respect lookup object."
+        (l := self lookupObject) notNil ifTrue:[
+            ^ (l
+                lookupMethodForSelector:aSelector
+                directedTo:self
+                for: nil "Fake receiver"
+                withArguments: nil "Fake arguments"
+                from: thisContext methodHome sender
+                ilc: nil "fake ilc")
+        ].
     ].
 
     cls := self.
     [
-	m := cls compiledMethodAt:aSelector.
-	m notNil ifTrue:[^ m].
-	cls hasMultipleSuperclasses ifTrue:[
-	    cls superclasses do:[:aSuperClass |
-		m := aSuperClass lookupMethodFor:aSelector.
-		m notNil ifTrue:[^ m].
-	    ].
-	    ^ nil
-	] ifFalse:[
-	    cls := cls superclass
-	]
+        m := cls compiledMethodAt:aSelector.
+        m notNil ifTrue:[^ m].
+        cls hasMultipleSuperclasses ifTrue:[
+            cls superclasses do:[:aSuperClass |
+                m := aSuperClass lookupMethodFor:aSelector.
+                m notNil ifTrue:[^ m].
+            ].
+            ^ nil
+        ] ifFalse:[
+            cls := cls superclass
+        ]
     ] doWhile:[cls notNil].
     ^ nil
 !