--- a/Delay.st	Sat Dec 16 14:01:20 1995 +0100
+++ b/Delay.st	Sat Dec 16 14:04:17 1995 +0100
@@ -11,10 +11,10 @@
 "
 
 Object subclass:#Delay
-	 instanceVariableNames:'millisecondDelta resumtionTime delaySemaphore'
-	 classVariableNames:''
-	 poolDictionaries:''
-	 category:'Kernel-Processes'
+	instanceVariableNames:'millisecondDelta resumtionTime delaySemaphore'
+	classVariableNames:''
+	poolDictionaries:''
+	category:'Kernel-Processes'
 !
 
 !Delay class methodsFor:'documentation'!
@@ -48,24 +48,25 @@
     Warning: currently, the implementation does not support delays longer than
     a system specific maximum - future versions may remove this limitation.
     For now, do not use delays longer than the value returned by
-	OperatingSystem maximumMillisecondTimeDelta
+        OperatingSystem maximumMillisecondTimeDelta
 
     Also notice: the clock resolution of the operatingSystem is usually limited
     (1/100, 1/60, 1/50, or even 1/20 of a second). Thus very small delays will
     delay for at least this minimum time interval.
 
     Check your systems resolution with:
+    (make certain, that no other timed delays are running in the background when doing this)
 
-	|d t1 t2 res|
+        |d t1 t2 res|
 
-	Processor activeProcess priority:24.
-	t1 := Time millisecondClockValue.
-	d := Delay forMilliseconds:1.
-	100 timesRepeat:[d wait].
-	t2 := Time millisecondClockValue.
-	res := (OperatingSystem millisecondTimeDeltaBetween:t2 and:t1) // 100.
-	Transcript show:'minimum delta is about '; show:res; showCr:' milliseconds'.
-	Processor activeProcess priority:8.
+        Processor activeProcess priority:24.
+        t1 := Time millisecondClockValue.
+        d := Delay forMilliseconds:1.
+        100 timesRepeat:[d wait].
+        t2 := Time millisecondClockValue.
+        res := (OperatingSystem millisecondTimeDeltaBetween:t2 and:t1) // 100.
+        Transcript show:'minimum delta is about '; show:res; showCr:' milliseconds'.
+        Processor activeProcess priority:8.
 "
 !
 
@@ -236,5 +237,5 @@
 !Delay class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic/Delay.st,v 1.12 1995-12-07 19:42:47 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/Delay.st,v 1.13 1995-12-16 13:04:17 cg Exp $'
 ! !