--- a/Future.st	Tue Oct 04 17:30:52 2011 +0200
+++ b/Future.st	Tue Oct 04 17:41:15 2011 +0200
@@ -306,12 +306,24 @@
 
 doesNotUnderstand:aMessage
     "Any message to a Future will end up here."
-MiniDebugger enter.
-    semaphore waitUncounted. "Wait for evaluation to complete"
-                             "(if not already completed)"
+
+    result isNil ifTrue:[
+        semaphore waitUncounted. "Wait for evaluation to complete"
+                                 "(if not already completed)"
+    ].
     ^ result perform:aMessage selector withArguments:aMessage arguments
 
-    "Modified: / 04-10-2011 / 17:24:57 / cg"
+    "Modified: / 04-10-2011 / 17:37:18 / cg"
+!
+
+value
+    result isNil ifTrue:[
+        semaphore waitUncounted. "Wait for evaluation to complete"
+                                 "(if not already completed)"
+    ].
+    ^ result
+
+    "Created: / 04-10-2011 / 17:36:06 / cg"
 ! !
 
 !Future methodsFor:'testing'!
@@ -329,9 +341,9 @@
 !Future class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic2/Future.st,v 1.14 2011-10-04 15:30:52 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic2/Future.st,v 1.15 2011-10-04 15:41:15 cg Exp $'
 !
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libbasic2/Future.st,v 1.14 2011-10-04 15:30:52 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic2/Future.st,v 1.15 2011-10-04 15:41:15 cg Exp $'
 ! !