--- a/PostscriptPrinterStream.st	Thu Oct 19 14:11:28 2000 +0200
+++ b/PostscriptPrinterStream.st	Tue Oct 24 19:28:57 2000 +0200
@@ -915,8 +915,7 @@
 setNative:aBoolean
 
     aBoolean ifTrue:[self flushLine].
-    super setNative:aBoolean.
-!
+    super setNative:aBoolean.!
 
 startPrint
     "start a document - send documentProlog & start a page.
@@ -929,21 +928,16 @@
     underline := false.
     strikeout := false.
 
+    super startPrint.
     native == true ifFalse:[
         Prolog isNil ifTrue:[
             self class initialize
         ].
-        self 
-            openPipeFor:(self class printCommand) 
-            withMode:'w' 
-            errorDisposition:#stderr 
-            inDirectory:nil.
         super nextPutAllUntranslated:Prolog.
         self startPage
     ]
 
-    "Modified: / 26.5.1999 / 16:15:27 / cg"
-! !
+    "Modified: / 26.5.1999 / 16:15:27 / cg"! !
 
 !PostscriptPrinterStream methodsFor:'private'!
 
@@ -1120,6 +1114,6 @@
 !PostscriptPrinterStream class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic2/PostscriptPrinterStream.st,v 1.53 2000-10-19 12:11:28 stefan Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic2/PostscriptPrinterStream.st,v 1.54 2000-10-24 17:28:57 stefan Exp $'
 ! !
 PostscriptPrinterStream initialize!

--- a/PrinterStream.st	Thu Oct 19 14:11:28 2000 +0200
+++ b/PrinterStream.st	Tue Oct 24 19:28:57 2000 +0200
@@ -181,14 +181,7 @@
      (i.e. text should be sent via nextPutUntranslated in the printers
       native format)"
 
-    ^ self basicNew initialize setNative;
-        openPipeFor:(self printCommand) 
-        withMode:'w' 
-        errorDisposition:#stderr 
-        inDirectory:nil
-
-    "Modified: / 26.5.1999 / 16:14:17 / cg"
-! !
+    ^ self basicNew initialize setNative; startPrint.! !
 
 !PrinterStream class methodsFor:'accessing - defaults'!
 
@@ -539,8 +532,7 @@
         ]
     ]
 
-    "Modified: 3.6.1996 / 17:12:31 / cg"
-!
+    "Modified: 3.6.1996 / 17:12:31 / cg"!
 
 nextPutAllUntranslated:aCollection
     "send some raw characters to the printer - even if not in native mode"
@@ -729,10 +721,9 @@
 !PrinterStream methodsFor:'initialization'!
 
 initialize
-    pageFormat := DefaultPageFormat
+    pageFormat := DefaultPageFormat.
 
-    "Created: 31.5.1996 / 20:14:36 / cg"
-! !
+    "Created: 31.5.1996 / 20:14:36 / cg"! !
 
 !PrinterStream methodsFor:'open/close'!
 
@@ -765,10 +756,9 @@
         openPipeFor:(self class printCommand) 
         withMode:'w' 
         errorDisposition:#stderr 
-        inDirectory:nil
+        inDirectory:nil.
 
-    "Modified: / 26.5.1999 / 16:14:57 / cg"
-! !
+    "Modified: / 26.5.1999 / 16:14:57 / cg"! !
 
 !PrinterStream methodsFor:'queries'!
 
@@ -857,6 +847,6 @@
 !PrinterStream class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic2/PrinterStream.st,v 1.53 2000-10-19 12:11:10 stefan Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic2/PrinterStream.st,v 1.54 2000-10-24 17:28:01 stefan Exp $'
 ! !
 PrinterStream initialize!