--- a/Behavior.st	Sun Oct 23 18:47:36 2011 +0100
+++ b/Behavior.st	Wed Oct 26 12:01:53 2011 +0100
@@ -1319,18 +1319,18 @@
 lookupObject: anObject
     anObject isNil ifTrue:[^self setLookupObject: anObject].
 
-    (anObject respondsTo: #lookupMethodForSelector:directedTo:for:withArguments:from:)
+    (anObject respondsTo: #lookupMethodForSelector:directedTo:for:withArguments:from:ilc:)
     ifFalse:[
-	self error:'Lookup object does not respond to #lookupMethodForSelector:directedTo:for:withArguments:from:'
+        self error:'Lookup object does not respond to #lookupMethodForSelector:directedTo:for:withArguments:from:ilc'
     ].
     (anObject respondsTo:#superLookupObject:)
     ifTrue:[
-	anObject superLookupObject: self lookupObject
+        anObject superLookupObject: self lookupObject
     ].
     self setLookupObject: anObject.
 
     "Created: / 26-04-2010 / 13:35:19 / Jan Vrany <jan.vrany@fit.cvut.cz>"
-    "Modified: / 26-04-2010 / 21:05:39 / Jan Vrany <jan.vrany@fit.cvut.cz>"
+    "Modified: / 26-10-2011 / 13:00:49 / Jan Vrany <jan.vrany@fit.cvut.cz>"
 !
 
 methodDictionary
@@ -1392,6 +1392,7 @@
     ^ superclass
 ! !
 
+
 !Behavior methodsFor:'autoload check'!
 
 autoload
@@ -4746,5 +4747,5 @@
 !
 
 version_SVN
-    ^ '$Id: Behavior.st 10700 2011-09-29 15:44:37Z vranyj1 $'
+    ^ '$Id: Behavior.st 10725 2011-10-26 11:01:53Z vranyj1 $'
 ! !