--- a/PrinterStream.st	Thu Aug 03 05:30:04 1995 +0200
+++ b/PrinterStream.st	Thu Aug 10 15:19:05 1995 +0200
@@ -1,6 +1,6 @@
 "
  COPYRIGHT (c) 1990 by Claus Gittinger
-              All Rights Reserved
+	      All Rights Reserved
 
  This software is furnished under a license and may be used
  only in accordance with the terms of that license and with the
@@ -19,9 +19,9 @@
 
 PrinterStream comment:'
 COPYRIGHT (c) 1990 by Claus Gittinger
-              All Rights Reserved
+	      All Rights Reserved
 
-$Header: /cvs/stx/stx/libbasic2/PrinterStream.st,v 1.8 1994-08-05 01:07:07 claus Exp $
+$Header: /cvs/stx/stx/libbasic2/PrinterStream.st,v 1.9 1995-08-10 13:18:24 claus Exp $
 '!
 
 !PrinterStream class methodsFor:'documentation'!
@@ -29,7 +29,7 @@
 copyright
 "
  COPYRIGHT (c) 1990 by Claus Gittinger
-              All Rights Reserved
+	      All Rights Reserved
 
  This software is furnished under a license and may be used
  only in accordance with the terms of that license and with the
@@ -42,7 +42,8 @@
 
 version
 "
-$Header: /cvs/stx/stx/libbasic2/PrinterStream.st,v 1.8 1994-08-05 01:07:07 claus Exp $
+$Header: /cvs/stx/stx/libbasic2/PrinterStream.st,v 1.9 1995-08-10 13:18:24 claus Exp $
+$Revision: 1.9 $
 "
 !
 
@@ -60,14 +61,14 @@
     "this is usually redefined by the startup-file"
 
     PrintCommand isNil ifTrue:[
-        OperatingSystem isBSDlike ifTrue:[
-            PrintCommand := 'lpr'
-        ] ifFalse:[
-            PrintCommand := 'lp'
-        ]
+	OperatingSystem isBSDlike ifTrue:[
+	    PrintCommand := 'lpr'
+	] ifFalse:[
+	    PrintCommand := 'lp'
+	]
     ].
     LeftMargin isNil ifTrue:[
-        LeftMargin := 0
+	LeftMargin := 0
     ]
 ! !
 
@@ -133,7 +134,7 @@
     "send some characters to the printer - translate as needed"
 
     aCollection do:[:aChar |
-        self nextPut:aChar
+	self nextPut:aChar
     ]
 !
 
@@ -141,10 +142,10 @@
     "send some characters to the printer - translate as needed"
 
     (aCharacter == Character cr) ifTrue:[
-        super nextPut:(Character cr).
-        self spaces:LeftMargin
+	super nextPut:(Character cr).
+	self spaces:LeftMargin
     ] ifFalse:[
-        super nextPut:aCharacter
+	super nextPut:aCharacter
     ]
 !
         
@@ -159,7 +160,7 @@
     "send some spaces to the printer"
 
     aNumber timesRepeat:[
-        super nextPut:(Character space)
+	super nextPut:(Character space)
     ]
 !