--- a/RegressionTests__BehaviorLookupObjectTests.st	Sun Jul 10 00:33:35 2016 +0100
+++ b/RegressionTests__BehaviorLookupObjectTests.st	Mon Jul 11 06:30:42 2016 +0100
@@ -40,6 +40,19 @@
 
 !BehaviorLookupObjectTests methodsFor:'helpers'!
 
+callConstant98765
+    ^ self returnConstant98765
+
+    "Created: / 11-07-2016 / 06:26:08 / Jan Vrany <jan.vrany@fit.cvut.cz>"
+    "Modified: / 11-07-2016 / 08:49:34 / Jan Vrany <jan.vrany@fit.cvut.cz>"
+!
+
+returnConstant12345
+    ^ 12345
+
+    "Created: / 11-07-2016 / 08:48:36 / Jan Vrany <jan.vrany@fit.cvut.cz>"
+!
+
 returnConstant98765
     ^ 98765
 ! !
@@ -406,6 +419,25 @@
 
     ClassWithSpecialLookup setLookupObject:LookupClass.
     self should:( ClassWithSpecialLookup new a1:1 a2:2 a3:3 a4:4 a5:5 a6:6 a7:7 a8:8 a9:9 a10:10 a11:11 a12:12 a13:13 a14:14 a15:15) = 12345.
+!
+
+testLookupObject_04
+    | x |
+    self assert: self callConstant98765 == 98765.
+    [ 
+
+        (self class compiledMethodAt: #callConstant98765) setLookupObject: LookupClass.
+        ObjectMemory flushCaches.
+        ObjectMemory debugBreakPoint3.
+        x := self callConstant98765.
+        self assert: x == 12345.
+    ] ensure:[ 
+        (self class compiledMethodAt: #callConstant98765) setLookupObject: nil.
+        ObjectMemory flushCaches.
+    ].
+
+    "Created: / 11-07-2016 / 06:25:17 / Jan Vrany <jan.vrany@fit.cvut.cz>"
+    "Modified: / 11-07-2016 / 08:49:22 / Jan Vrany <jan.vrany@fit.cvut.cz>"
 ! !
 
 !BehaviorLookupObjectTests::LookupClass class methodsFor:'lookup'!