--- a/Future.st	Wed Aug 09 14:13:35 2017 +0200
+++ b/Future.st	Wed Aug 09 14:14:09 2017 +0200
@@ -173,12 +173,12 @@
      ensure that any messages sent to me before execution
      of the block has terminated are suspended until it has terminated."
 
-    semaphore := Semaphore new name:'Future'.
+    semaphore := Semaphore name:'Future'.
     [
         [result := aBlock value] ensure:[semaphore signal. semaphore := nil.]
     ] fork
 
-    "Modified (format): / 04-10-2011 / 14:54:11 / cg"
+    "Modified: / 09-08-2017 / 11:54:19 / cg"
 !
 
 block:aBlock value:aValue
@@ -186,14 +186,14 @@
      ensure that any messages sent to me before execution
      of the block has terminated are suspended until it has terminated."
 
-    semaphore := Semaphore new name:'Future'.
+    semaphore := Semaphore name:'Future'.
     [
         [
             result := aBlock value:aValue
         ] ensure:[semaphore signal. semaphore := nil.]
     ] fork
 
-    "Modified (format): / 04-10-2011 / 14:54:18 / cg"
+    "Modified: / 09-08-2017 / 11:54:23 / cg"
 !
 
 block:aBlock value:value1 value:value2
@@ -201,14 +201,14 @@
      ensure that any messages sent to me before execution
      of the block has terminated are suspended until it has terminated."
 
-    semaphore := Semaphore new name:'Future'.
+    semaphore := Semaphore name:'Future'.
     [
         [
             result := aBlock value:value1 value:value2
         ] ensure:[semaphore signal. semaphore := nil.]
     ] fork
 
-    "Modified (format): / 04-10-2011 / 14:54:28 / cg"
+    "Modified: / 09-08-2017 / 11:54:27 / cg"
 !
 
 block:aBlock value:value1 value:value2 value:value3
@@ -216,14 +216,14 @@
      ensure that any messages sent to me before execution
      of the block has terminated are suspended until it has terminated."
 
-    semaphore := Semaphore new name:'Future'.
+    semaphore := Semaphore name:'Future'.
     [
         [
             result := aBlock value:value1 value:value2 value:value3
         ] ensure:[semaphore signal. semaphore := nil.]
     ] fork
 
-    "Modified (format): / 04-10-2011 / 14:54:45 / cg"
+    "Modified: / 09-08-2017 / 11:54:31 / cg"
 !
 
 block:aBlock valueWithArguments:anArray
@@ -231,14 +231,14 @@
      ensure that any messages sent to me before execution
      of the block has terminated are suspended until it has terminated."
 
-    semaphore := Semaphore new name:'Future'.
+    semaphore := Semaphore name:'Future'.
     [
         [
             result := aBlock valueWithArguments:anArray
         ] ensure:[semaphore signal. semaphore := nil.]
     ] fork
 
-    "Modified (format): / 04-10-2011 / 14:55:09 / cg"
+    "Modified: / 09-08-2017 / 11:54:34 / cg"
 !
 
 priority:prio block: aBlock
@@ -246,12 +246,13 @@
      ensure that any messages sent to me before execution
      of the block has terminated are suspended until it has terminated."
 
-    semaphore := Semaphore new name:'Future'.
+    semaphore := Semaphore name:'Future'.
     [
         [result := aBlock value] ensure:[semaphore signal. semaphore := nil.]
     ] forkAt:prio
 
     "Created: / 04-10-2011 / 14:53:21 / cg"
+    "Modified: / 09-08-2017 / 11:54:38 / cg"
 !
 
 priority:prio block: aBlock value: aValue
@@ -259,7 +260,7 @@
      ensure that any messages sent to me before execution
      of the block has terminated are suspended until it has terminated."
 
-    semaphore := Semaphore new name:'Future'.
+    semaphore := Semaphore name:'Future'.
     [
         [
             result := aBlock value:aValue
@@ -267,6 +268,7 @@
     ] forkAt:prio
 
     "Created: / 04-10-2011 / 14:53:35 / cg"
+    "Modified: / 09-08-2017 / 11:54:41 / cg"
 !
 
 priority:prio block:aBlock value:value1 value:value2
@@ -274,7 +276,7 @@
      ensure that any messages sent to me before execution
      of the block has terminated are suspended until it has terminated."
 
-    semaphore := Semaphore new name:'Future'.
+    semaphore := Semaphore name:'Future'.
     [
         [
             result := aBlock value:value1 value:value2
@@ -282,6 +284,7 @@
     ] forkAt:prio
 
     "Created: / 04-10-2011 / 14:54:03 / cg"
+    "Modified: / 09-08-2017 / 11:54:44 / cg"
 !
 
 priority:prio block:aBlock value:value1 value:value2 value:value3
@@ -289,7 +292,7 @@
      ensure that any messages sent to me before execution
      of the block has terminated are suspended until it has terminated."
 
-    semaphore := Semaphore new name:'Future'.
+    semaphore := Semaphore name:'Future'.
     [
         [
             result := aBlock value:value1 value:value2 value:value3
@@ -297,6 +300,7 @@
     ] forkAt:prio
 
     "Created: / 04-10-2011 / 14:54:51 / cg"
+    "Modified: / 09-08-2017 / 11:54:47 / cg"
 !
 
 priority:prio block:aBlock valueWithArguments:anArray
@@ -304,7 +308,7 @@
      ensure that any messages sent to me before execution
      of the block has terminated are suspended until it has terminated."
 
-    semaphore := Semaphore new name:'Future'.
+    semaphore := Semaphore name:'Future'.
     [
         [
             result := aBlock valueWithArguments:anArray
@@ -312,6 +316,7 @@
     ] forkAt:prio
 
     "Created: / 04-10-2011 / 14:55:14 / cg"
+    "Modified: / 09-08-2017 / 11:54:50 / cg"
 ! !
 
 !Future methodsFor:'printing'!