--- a/host.rc	Wed May 29 18:49:05 1996 +0200
+++ b/host.rc	Sat Jun 01 00:34:12 1996 +0200
@@ -17,12 +17,20 @@
 domain := OperatingSystem getDomainName.
 (domain = 'axept.de'
  or:[domain = 'exept.de']) ifTrue:[
-    Printer := PostscriptPrinterStream.
-    Printer defaultCommands:#('cat | rsh ibm lpr -h'
+    PostscriptPrinterStream defaultCommands:#(
+				    'cat | rsh ibm lpr -h'
 				    'cat > preview.ps'
 				    'cat > preview.ps; ghostview preview.ps'
 			     ).
-    Printer printCommand:'cat | rsh ibm lpr -h'.
+    PostscriptPrinterStream printCommand:'cat | rsh ibm lpr -h'.
+    Printer := PostscriptPrinterStream.
+
+    PrinterStream defaultCommands:#(
+				    'cat | rsh ibm lpr -h'
+				    'a2ps | rsh ibm lpr -h'
+				    'a2ps > preview.ps; ghostview preview.ps'
+			     ).
+    PrinterStream printCommand:'cat | rsh ibm lpr -h'.
 ].
 
 host := OperatingSystem getHostName.