--- a/Future.st	Thu Feb 01 23:42:59 2018 +0100
+++ b/Future.st	Thu Feb 01 23:44:21 2018 +0100
@@ -354,7 +354,7 @@
     "Any message to a Future will end up here."
 
     semaphore notNil ifTrue:[
-        IsDebuggingQuery query ifTrue:[
+        Processor activeProcess isDebuggerProcess ifTrue:[
             "enable debugging / inspecting"
             ^ aMessage sendTo:self usingClass:Object.
         ].
@@ -363,6 +363,7 @@
     ^ aMessage sendTo:result
 
     "Modified: / 04-10-2011 / 17:37:18 / cg"
+    "Modified: / 01-02-2018 / 10:17:48 / stefan"
 !
 
 perform:aSelector withArguments:argArray
@@ -370,13 +371,15 @@
      to the receiver."
 
     semaphore notNil ifTrue:[
-        IsDebuggingQuery query ifTrue:[
+        Processor activeProcess isDebuggerProcess ifTrue:[
             "enable debugging / inspecting"
             ^ super perform:aSelector withArguments:argArray.
         ].
         self value.
     ].
     ^ result perform:aSelector withArguments:argArray.
+
+    "Modified (format): / 01-02-2018 / 10:17:44 / stefan"
 !
 
 value