--- a/ExternalStream.st	Tue Jul 21 20:17:01 1998 +0200
+++ b/ExternalStream.st	Tue Jul 21 20:27:42 1998 +0200
@@ -3335,9 +3335,14 @@
     unsigned char c;
     int ret, _buffered;
     OBJ fp;
-
-    if (__INST(readAhead) != nil) {
-	RETURN (__INST(readAhead));
+    OBJ ra;
+
+    if ((ra = __INST(readAhead)) != nil) {
+	if (__INST(binary) == true) {
+	    RETURN ( ra );
+	}
+	c = __intVal(ra);
+	RETURN ( __MKCHARACTER(c) );
     }
 
     __INST(lastErrorNumber) = nil;
@@ -4286,7 +4291,7 @@
      This is actually only used with sockets, to wait for a connect to
      be finished."
 
-    |fd sema canread canReadWrite wasBlocked|
+    |fd sema canReadWrite wasBlocked|
 
     filePointer isNil ifTrue:[
         ^ self errorNotOpen
@@ -4659,6 +4664,6 @@
 !ExternalStream class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic/ExternalStream.st,v 1.170 1998-06-15 13:31:02 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/ExternalStream.st,v 1.171 1998-07-21 18:27:42 cg Exp $'
 ! !
 ExternalStream initialize!