--- a/Delay.st	Mon Dec 20 07:13:27 2010 +0000
+++ b/Delay.st	Fri Feb 04 23:09:23 2011 +0000
@@ -245,10 +245,11 @@
     "set the millisecond delta and create a new semaphore internally to wait upon"
 
     self assert:(numberOfMillis notNil).
+    self assert:(numberOfMillis isKindOf:SmallInteger).
     millisecondDelta := numberOfMillis.
     delaySemaphore := Semaphore new name:'delaySema'.
 
-    "Modified: / 24-09-2007 / 20:36:22 / cg"
+    "Modified: / 22-12-2010 / 14:18:00 / cg"
 !
 
 delaySemaphore
@@ -343,16 +344,17 @@
 !Delay class methodsFor:'documentation'!
 
 version
-    ^ '$Id: Delay.st 10602 2010-12-20 07:13:27Z vranyj1 $'
+    ^ '$Id: Delay.st 10604 2011-02-04 23:09:23Z vranyj1 $'
 !
 
 version_SVN
-    ^ '$Id: Delay.st 10602 2010-12-20 07:13:27Z vranyj1 $'
+    ^ '$Id: Delay.st 10604 2011-02-04 23:09:23Z vranyj1 $'
 !
 
 version_CVS
-    ^ '§Header: /cvs/stx/stx/libbasic/Delay.st,v 1.43 2010/08/02 14:02:50 cg Exp §'
+    ^ '§Header: /cvs/stx/stx/libbasic/Delay.st,v 1.44 2010/12/22 13:18:18 cg Exp §'
 ! !
 
 
 
+