diff -r 40b0a5cd3fd3 -r 064acda1bec1 NonPositionableExternalStream.st
--- a/NonPositionableExternalStream.st	Thu Feb 04 10:11:16 2010 +0100
+++ b/NonPositionableExternalStream.st	Thu Feb 04 10:13:26 2010 +0100
@@ -154,18 +154,18 @@
 
     pipe := OperatingSystem makePipe.
     pipe isNil ifTrue:[
-	"/ ok, someone has forgotten to close a stream; enforce finalization and try again
-	'MakePipe: enforce finalization to close any open streams' infoPrintCR.
-	ObjectMemory garbageCollect.
-	pipe := OperatingSystem makePipe.
+        "/ ok, maybe someone has forgotten to close a stream; enforce finalization and try again
+        'makePipe: enforcing finalization to close any open streams' infoPrintCR.
+        ObjectMemory garbageCollect.
+        pipe := OperatingSystem makePipe.
     ].
 
     pipe notNil ifTrue:[
-	rs := self forReadingFromFileDescriptor:(pipe at:1).
-	rs buffered:false.
-	ws := self forWritingToFileDescriptor:(pipe at:2).
-	ws buffered:false.
-	^ Array with:rs with:ws
+        rs := self forReadingFromFileDescriptor:(pipe at:1).
+        rs buffered:false.
+        ws := self forWritingToFileDescriptor:(pipe at:2).
+        ws buffered:false.
+        ^ Array with:rs with:ws
     ].
     ^ nil
 
@@ -178,18 +178,18 @@
 
      'read ...'.
      [
-	 1 to:10 do:[:i |
-	     Transcript showCR:rs nextLine
-	 ].
-	 rs close.
+         1 to:10 do:[:i |
+             Transcript showCR:rs nextLine
+         ].
+         rs close.
      ] forkAt:7.
 
      'write ...'.
      [
-	 1 to:10 do:[:i |
-	     ws nextPutAll:'hello world '; nextPutAll:i printString; cr
-	 ].
-	 ws close.
+         1 to:10 do:[:i |
+             ws nextPutAll:'hello world '; nextPutAll:i printString; cr
+         ].
+         ws close.
      ] fork.
     "
 
@@ -559,9 +559,9 @@
 !NonPositionableExternalStream class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic/NonPositionableExternalStream.st,v 1.58 2010-02-01 18:20:44 stefan Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/NonPositionableExternalStream.st,v 1.59 2010-02-04 09:13:26 stefan Exp $'
 !
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libbasic/NonPositionableExternalStream.st,v 1.58 2010-02-01 18:20:44 stefan Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/NonPositionableExternalStream.st,v 1.59 2010-02-04 09:13:26 stefan Exp $'
 ! !