--- a/DebugView.st	Fri Feb 14 09:51:11 2020 +0100
+++ b/DebugView.st	Fri Feb 14 15:29:55 2020 +0100
@@ -1,5 +1,3 @@
-"{ Encoding: utf8 }"
-
 "
  COPYRIGHT (c) 1989 by Claus Gittinger
               All Rights Reserved
@@ -9079,7 +9077,7 @@
                 ]
             ].
 
-            s := Text streamContents:[:s | aContext printWithSeparator:' » ' on:s ].
+            s := Text streamContents:[:s | aContext printWithSeparator:' » ' on:s ].
             "/ s infoPrintCR.
             RememberedCallChain notNil ifTrue:[
                 (RememberedCallChain includesIdentical:aContext) ifTrue:[
@@ -9842,7 +9840,7 @@
 canDefineForCallee:callee
     "again, pure heuristics here"
 
-    |mthd app heuristic selector sender|
+    |mthd app heuristic selector sender receiver|
 
     callee isNil ifTrue:[^ false].
 
@@ -9857,8 +9855,8 @@
         sender isBlockContext ifFalse:[
             "/ an unimplemented method
             selector := sender selector.
-            (sender receiver class canUnderstand:selector) ifFalse:[
-                classToDefineIn := sender receiver class.
+            ((receiver := sender receiver) class canUnderstand:selector) ifFalse:[
+                classToDefineIn := receiver class.
                 selectorToDefine := selector.
                 ^ true
             ]
@@ -10983,7 +10981,7 @@
 
 printConditionOn:aStream
     ignoredSendingClassAndSelectors notEmptyOrNil ifTrue:[
-        aStream nextPutAll:(' if called from %1 » %2'
+        aStream nextPutAll:(' if called from %1 » %2'
                                 bindWith:ignoredSendingClassAndSelectors first first
                                 with:ignoredSendingClassAndSelectors first second).
         ^ self.