--- a/ExternalStream.st	Tue Dec 09 12:16:08 2003 +0100
+++ b/ExternalStream.st	Tue Dec 09 13:27:37 2003 +0100
@@ -4137,6 +4137,13 @@
     ^ binary
 !
 
+isBlocking
+    "return true, if O_NONBLOCK is NOT set in the fileDescriptor (propably UNIX specific)"
+
+    filePointer isNil ifTrue:[^ self errorNotOpen].
+    ^ OperatingSystem isBlockingOn:self fileDescriptor
+!
+
 isExternalStream
     "return true, if the receiver is some kind of externalStream;
      true is returned here - the method redefined from Object."
@@ -4144,32 +4151,6 @@
     ^ true
 !
 
-isNonBlocking
-    "return true, if O_NONBLOCK is set in the fileDescriptor (propably UNIX specific)"
-
-%{
-    OBJ fp;
-
-    if ((fp = __INST(filePointer)) != nil) {
-        FILEPOINTER f;
-
-        f = __FILEVal(fp);
-        if (f) {
-            int fd;
-            int flags;
-
-            fd = fileno(f);
-
-# if defined(O_NONBLOCK) && defined(F_GETFL)
-            flags = fcntl(fd, F_GETFL);
-            RETURN ( (flags & O_NONBLOCK) ? true : false );
-# endif
-        }
-    }
-%}.
-    self primitiveFailed
-!
-
 isOpen 
     "return true, if this stream is open"
 
@@ -5800,7 +5781,7 @@
 !ExternalStream class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic/ExternalStream.st,v 1.264 2003-12-09 10:46:45 penk Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/ExternalStream.st,v 1.265 2003-12-09 12:27:37 cg Exp $'
 ! !
 
 ExternalStream initialize!