--- a/ProcessorScheduler.st	Fri Aug 02 20:14:11 1996 +0200
+++ b/ProcessorScheduler.st	Wed Aug 14 15:47:47 1996 +0200
@@ -1624,6 +1624,10 @@
     |idx "{ Class: SmallInteger }"
      wasBlocked|
 
+    aFileDescriptor isNil ifTrue:[
+	'PROCESSOR: no fd to select on - polling with checkBlock' infoPrintCR
+    ].
+
     wasBlocked := OperatingSystem blockInterrupts.
     (readFdArray identityIndexOf:aFileDescriptor startingAt:1) == 0 ifTrue:[
 	idx := readFdArray identityIndexOf:nil startingAt:1.
@@ -2043,9 +2047,6 @@
         ]
     ].
 
-    "/
-    "/ absolutely nothing to do - simply wait
-    "/
     exitWhenNoMoreUserProcesses ifTrue:[
         "/ check if there are any processes at all
         "/ stop dispatching if there is none
@@ -2066,6 +2067,9 @@
         ].
     ].
 
+    "/
+    "/ absolutely nothing to do - simply wait
+    "/
     OperatingSystem supportsSelect ifFalse:[
         "SCO instant ShitStation has a bug here,
          waiting always 1 sec in the select - therefore we delay a bit and
@@ -2092,6 +2096,6 @@
 !ProcessorScheduler  class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic/ProcessorScheduler.st,v 1.87 1996-07-29 10:12:27 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/ProcessorScheduler.st,v 1.88 1996-08-14 13:47:47 cg Exp $'
 ! !
 ProcessorScheduler initialize!