--- a/Semaphore.st	Tue Dec 06 07:06:38 2016 +0100
+++ b/Semaphore.st	Sun Dec 18 11:19:27 2016 +0000
@@ -1,5 +1,3 @@
-"{ Encoding: utf8 }"
-
 "
  COPYRIGHT (c) 1993 by Claus Gittinger
 	      All Rights Reserved
@@ -1016,7 +1014,8 @@
     |millis|
 
     secondsOrNilOrTimeDuration notNil ifTrue:[
-        millis := secondsOrNilOrTimeDuration asFloat * 1000
+        "asFloat converts a TimeDuration to a Float"
+        millis := (secondsOrNilOrTimeDuration asFloat * 1000) asInteger
     ].
     ^ self waitWithTimeoutMs:millis.
 !