--- a/PrinterStream.st	Sun May 23 20:12:06 1999 +0200
+++ b/PrinterStream.st	Wed May 26 17:34:40 1999 +0200
@@ -189,7 +189,13 @@
      (i.e. text should be sent via nextPutUntranslated in the printers
       native format)"
 
-    ^ self basicNew initialize setNative; writingTo:(self printCommand)
+    ^ self basicNew initialize setNative;
+        openPipeFor:(self printCommand) 
+        withMode:'w' 
+        errorDisposition:#stderr 
+        inDirectory:nil
+
+    "Modified: / 26.5.1999 / 16:14:17 / cg"
 ! !
 
 !PrinterStream class methodsFor:'accessing - defaults'!
@@ -760,9 +766,13 @@
 !
 
 startPrint
-    super writingTo:(self class printCommand).
+    self 
+        openPipeFor:(self class printCommand) 
+        withMode:'w' 
+        errorDisposition:#stderr 
+        inDirectory:nil
 
-    "Modified: 1.6.1996 / 00:13:23 / cg"
+    "Modified: / 26.5.1999 / 16:14:57 / cg"
 ! !
 
 !PrinterStream methodsFor:'queries'!
@@ -852,6 +862,6 @@
 !PrinterStream class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic2/PrinterStream.st,v 1.49 1998-04-01 09:57:24 ca Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic2/PrinterStream.st,v 1.50 1999-05-26 15:34:40 cg Exp $'
 ! !
 PrinterStream initialize!