ProcessorScheduler.st
changeset 16370 63165563ae2c
parent 16338 b8defcce7efc
child 16461 11b1345b869b
--- a/ProcessorScheduler.st	Fri Apr 18 15:06:33 2014 +0200
+++ b/ProcessorScheduler.st	Fri Apr 18 15:06:38 2014 +0200
@@ -9,6 +9,8 @@
  other person.  No title to or ownership of the software is
  hereby transferred.
 "
+'From Smalltalk/X, Version:6.2.3.0 on 17-04-2014 at 09:53:28'                   !
+
 "{ Package: 'stx:libbasic' }"
 
 Object subclass:#ProcessorScheduler
@@ -3063,7 +3065,7 @@
         "/ either still nothing to do,
         "/ or error (which should not happen)
 
-        (err := OperatingSystem lastErrorSymbol) notNil ifTrue:[
+        (nReady < 0 and:[(err := OperatingSystem lastErrorSymbol) notNil]) ifTrue:[
             err == #EBADF ifTrue:[
                 "/ mhmh - one of the fd's given to me is corrupt.
                 "/ find out which one .... and remove it
@@ -3410,11 +3412,11 @@
 !ProcessorScheduler class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic/ProcessorScheduler.st,v 1.286 2014-04-15 14:04:33 stefan Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/ProcessorScheduler.st,v 1.287 2014-04-18 13:06:38 stefan Exp $'
 !
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libbasic/ProcessorScheduler.st,v 1.286 2014-04-15 14:04:33 stefan Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/ProcessorScheduler.st,v 1.287 2014-04-18 13:06:38 stefan Exp $'
 ! !