--- a/DeviceWorkstation.st	Tue Jun 25 22:24:57 2013 +0200
+++ b/DeviceWorkstation.st	Tue Jun 25 23:37:44 2013 +0200
@@ -4873,7 +4873,7 @@
     "/ arrange for the processor to signal that semaphore when input
     "/ is available or #eventPending returns true
 
-    fd isNil ifTrue:[
+    (fd isNil or:[ OperatingSystem isOSXlike]) ifTrue:[
         "no fd -- so have to check for input also"
         checkBlock := [self eventPending].
     ] ifFalse:[
@@ -8252,11 +8252,11 @@
 !DeviceWorkstation class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libview/DeviceWorkstation.st,v 1.585 2013-06-05 10:03:52 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libview/DeviceWorkstation.st,v 1.586 2013-06-25 21:37:44 cg Exp $'
 !
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libview/DeviceWorkstation.st,v 1.585 2013-06-05 10:03:52 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libview/DeviceWorkstation.st,v 1.586 2013-06-25 21:37:44 cg Exp $'
 ! !