--- a/ExternalStream.st	Fri Jan 24 21:58:45 1997 +0100
+++ b/ExternalStream.st	Fri Jan 24 23:11:36 1997 +0100
@@ -3268,7 +3268,7 @@
     wasBlocked := OperatingSystem blockInterrupts.
     hasData := OperatingSystem readCheck:fd.
     hasData ifFalse:[
-        inputSema := Semaphore new.
+        inputSema := Semaphore new name:'inputSema'.
         [
             timeout notNil ifTrue:[
                 Processor signal:inputSema afterMilliseconds:timeout 
@@ -3328,7 +3328,7 @@
     wasBlocked := OperatingSystem blockInterrupts.
     canWrite := OperatingSystem writeCheck:fd.
     canWrite ifFalse:[
-        outputSema := Semaphore new.
+        outputSema := Semaphore new name:'outputSema'.
         [
             timeout notNil ifTrue:[
                 Processor signal:outputSema afterMilliseconds:timeout
@@ -3592,6 +3592,6 @@
 !ExternalStream class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic/ExternalStream.st,v 1.118 1997-01-14 14:16:36 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/ExternalStream.st,v 1.119 1997-01-24 22:09:06 cg Exp $'
 ! !
 ExternalStream initialize!