--- a/LazyValue.st	Fri Dec 09 00:31:25 2016 +0100
+++ b/LazyValue.st	Fri Dec 09 00:31:48 2016 +0100
@@ -1,5 +1,3 @@
-"{ Encoding: utf8 }"
-
 "
  COPYRIGHT (c) 2002 by eXept Software AG
               All Rights Reserved
@@ -472,6 +470,20 @@
         self _evaluate_.
     ].
     ^ aMessage sendTo:result
+!
+
+perform:aSelector withArguments:argArray
+    "send the message aSelector with all args taken from argArray
+     to the receiver."
+
+    block notNil ifTrue:[
+        IsDebuggingQuery query ifTrue:[
+            "enable debugging / inspecting"
+            ^ super perform:aSelector withArguments:argArray.
+        ].
+        self _evaluate_.
+    ].
+    ^ result perform:aSelector withArguments:argArray.
 ! !
 
 !LazyValue methodsFor:'testing'!