--- a/PipeStr.st	Fri Jan 10 12:21:02 1997 +0100
+++ b/PipeStr.st	Fri Jan 10 12:21:41 1997 +0100
@@ -275,7 +275,11 @@
         super closeFile.
         filePointer := nil.
         pid notNil ifTrue:[
-            exitSema wait.
+	    [
+                pid notNil ifTrue:[
+                    exitSema wait.
+		]
+	    ] valueUninterruptably
         ].
     ].
 !
@@ -335,7 +339,7 @@
 
 !PipeStream methodsFor:'private'!
 
-atEnd
+xxatEnd
     "return true, if position is at end"
 
 %{  /* NOCONTEXT */
@@ -461,6 +465,6 @@
 !PipeStream  class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic/Attic/PipeStr.st,v 1.47 1996-11-20 16:03:46 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/Attic/PipeStr.st,v 1.48 1997-01-10 11:21:41 cg Exp $'
 ! !
 PipeStream initialize!

--- a/PipeStream.st	Fri Jan 10 12:21:02 1997 +0100
+++ b/PipeStream.st	Fri Jan 10 12:21:41 1997 +0100
@@ -275,7 +275,11 @@
         super closeFile.
         filePointer := nil.
         pid notNil ifTrue:[
-            exitSema wait.
+	    [
+                pid notNil ifTrue:[
+                    exitSema wait.
+		]
+	    ] valueUninterruptably
         ].
     ].
 !
@@ -335,7 +339,7 @@
 
 !PipeStream methodsFor:'private'!
 
-atEnd
+xxatEnd
     "return true, if position is at end"
 
 %{  /* NOCONTEXT */
@@ -461,6 +465,6 @@
 !PipeStream  class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic/PipeStream.st,v 1.47 1996-11-20 16:03:46 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/PipeStream.st,v 1.48 1997-01-10 11:21:41 cg Exp $'
 ! !
 PipeStream initialize!