PrinterStream.st
changeset 1777 e6023a680558
parent 1774 4a72b0ecf646
child 1779 03cee7f19c7d
--- a/PrinterStream.st	Wed Oct 11 09:29:55 2006 +0200
+++ b/PrinterStream.st	Thu Oct 12 16:33:15 2006 +0200
@@ -843,7 +843,9 @@
 
 close
     self endPrint.
-    stream close
+    stream notNil ifTrue:[ stream close ]
+
+    "Modified: / 12-10-2006 / 14:58:43 / User"
 !
 
 endPrint
@@ -962,7 +964,7 @@
 !PrinterStream class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic2/PrinterStream.st,v 1.63 2006-10-10 18:26:01 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic2/PrinterStream.st,v 1.64 2006-10-12 14:33:15 fm Exp $'
 ! !
 
 PrinterStream initialize!