--- a/ProcessorScheduler.st	Tue Jan 28 01:01:36 1997 +0100
+++ b/ProcessorScheduler.st	Tue Jan 28 01:02:13 1997 +0100
@@ -2487,7 +2487,7 @@
     ].
 
     millis isNil ifTrue:[
-	millis := 9999.
+	millis := 999999.
     ] ifFalse:[
 	millis := millis rounded
     ].
@@ -2500,6 +2500,6 @@
 !ProcessorScheduler class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic/ProcessorScheduler.st,v 1.118 1997-01-27 19:09:51 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/ProcessorScheduler.st,v 1.119 1997-01-28 00:02:13 cg Exp $'
 ! !
 ProcessorScheduler initialize!