--- a/Behavior.st	Wed Oct 26 12:01:53 2011 +0100
+++ b/Behavior.st	Fri Oct 28 08:45:38 2011 +0100
@@ -4121,12 +4121,13 @@
 
     "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 sender) notNil
+        ^ (l
+            lookupMethodForSelector:aSelector
+            directedTo:self
+            for: nil "Fake receiver"
+            withArguments: nil "Fake arguments"
+            from: thisContext sender
+            ilc: nil) notNil
     ].
 
     "Original implementation"
@@ -4137,6 +4138,8 @@
      True canUnderstand:#==
      True canUnderstand:#do:
     "
+
+    "Modified: / 28-10-2011 / 09:34:57 / Jan Vrany <jan.vrany@fit.cvut.cz>"
 !
 
 compiledMethodAt:aSelector
@@ -4350,29 +4353,32 @@
 
     "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 sender)
+        ^ (l
+            lookupMethodForSelector:aSelector
+            directedTo:self
+            for: nil "fake receiver"
+            withArguments: nil "fake arguments"
+            from: thisContext sender
+            ilc: nil "fake ilc")
     ].
 
     cls := self.
     [cls notNil] whileTrue:[
-	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
+        ]
     ].
     ^ nil
+
+    "Modified: / 28-10-2011 / 09:27:18 / Jan Vrany <jan.vrany@fit.cvut.cz>"
 !
 
 responseTo:aSelector
@@ -4747,5 +4753,5 @@
 !
 
 version_SVN
-    ^ '$Id: Behavior.st 10725 2011-10-26 11:01:53Z vranyj1 $'
+    ^ '$Id: Behavior.st 10727 2011-10-28 07:45:38Z vranyj1 $'
 ! !