--- a/Delay.st	Wed Dec 22 13:50:41 2010 +0100
+++ b/Delay.st	Wed Dec 22 14:18:18 2010 +0100
@@ -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,9 +344,9 @@
 !Delay class methodsFor:'documentation'!
 
 version
-    ^ '$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 $'
 !
 
 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 $'
 ! !