--- a/Future.st	Thu May 19 02:09:25 2016 +0200
+++ b/Future.st	Thu May 19 16:36:53 2016 +0200
@@ -22,6 +22,8 @@
 "
 "{ Package: 'stx:libbasic2' }"
 
+"{ NameSpace: Smalltalk }"
+
 ProtoObject subclass:#Future
 	instanceVariableNames:'result semaphore'
 	classVariableNames:''
@@ -329,7 +331,7 @@
                                      "(if not already completed)"
         ].
     ].
-    ^ result perform:aMessage selector withArguments:aMessage arguments
+    ^ aMessage sendTo:result
 
     "Modified: / 04-10-2011 / 17:37:18 / cg"
 !
@@ -359,10 +361,10 @@
 !Future class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic2/Future.st,v 1.19 2014-12-15 18:56:01 stefan Exp $'
+    ^ '$Header$'
 !
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libbasic2/Future.st,v 1.19 2014-12-15 18:56:01 stefan Exp $'
+    ^ '$Header$'
 ! !