--- a/Block.st	Fri Jan 27 18:15:45 2017 +0100
+++ b/Block.st	Fri Jan 27 18:15:59 2017 +0100
@@ -709,6 +709,7 @@
 ! !
 
 
+
 !Block methodsFor:'accessing'!
 
 home
@@ -3248,12 +3249,12 @@
     "create a new process, give it a name and let it start
      executing the receiver at the current priority."
 
-    |newProcess|
-
-    newProcess := self newProcess.
-    newProcess name:aString.
-    newProcess resume.
-    ^ newProcess.
+    ^ self newProcess
+        name:aString;
+        resume;
+        yourself.
+
+    "Modified: / 27-01-2017 / 18:10:16 / stefan"
 !
 
 forkWith:argArray