--- a/Delay.st	Wed Aug 09 14:14:17 2017 +0200
+++ b/Delay.st	Wed Aug 09 14:15:20 2017 +0200
@@ -1,5 +1,3 @@
-"{ Encoding: utf8 }"
-
 "
  COPYRIGHT (c) 1993 by Claus Gittinger
 	      All Rights Reserved
@@ -283,9 +281,9 @@
         millisecondDelta := numberOfMillis.
     ].
 
-    delaySemaphore := Semaphore new name:'delaySema'.
+    delaySemaphore := Semaphore name:'delaySema'.
 
-    "Modified: / 22-12-2010 / 14:18:00 / cg"
+    "Modified: / 09-08-2017 / 11:52:47 / cg"
 !
 
 delaySemaphore
@@ -298,9 +296,10 @@
     "set the resumption time and create a new semaphore internally to wait upon"
 
     resumptionTime := aMillisecondTime.
-    delaySemaphore := Semaphore new name:'delaySema'.
+    delaySemaphore := Semaphore name:'delaySema'.
 
-    "Created: 18.4.1997 / 11:56:14 / stefan"
+    "Created: / 18-04-1997 / 11:56:14 / stefan"
+    "Modified: / 09-08-2017 / 11:52:53 / cg"
 !
 
 setDelayDuration:numberOfMillis