--- a/UserPreferences.st	Fri May 09 21:56:10 2008 +0200
+++ b/UserPreferences.st	Tue May 13 14:32:59 2008 +0200
@@ -458,23 +458,24 @@
     s nextPutLine:'"/ Printer settings:'.
     s nextPutLine:'"/'.
     Printer notNil ifTrue:[
-    s nextPutLine:'Printer := ' , (Printer name) , '.';
-      nextPutLine:'Printer printCommand: ' , (Printer printCommand storeString) , '.'.
-
-    Printer supportsPageSizes ifTrue:[
-        s nextPutLine:'Printer pageFormat: ' , (Printer pageFormat storeString) , '.'.
-        s nextPutLine:'Printer landscape: ' , (Printer landscape storeString) , '.'.
+        s nextPutLine:'Printer := ' , (Printer name) , '.'.
+        Printer supportsPrintingToCommand ifTrue:[
+            s nextPutLine:'Printer printCommand: ' , (Printer printCommand storeString) , '.'.
+        ].
+        Printer supportsPageSizes ifTrue:[
+            s nextPutLine:'Printer pageFormat: ' , (Printer pageFormat storeString) , '.'.
+            s nextPutLine:'Printer landscape: ' , (Printer landscape storeString) , '.'.
+        ].
+        Printer supportsMargins ifTrue:[
+            s nextPutLine:'Printer topMargin: ' , (Printer topMargin storeString) , '.'.
+            s nextPutLine:'Printer leftMargin: ' , (Printer leftMargin storeString) , '.'.
+            s nextPutLine:'Printer rightMargin: ' , (Printer rightMargin storeString) , '.'.
+            s nextPutLine:'Printer bottomMargin: ' , (Printer bottomMargin storeString) , '.'.
+        ].
+        Printer supportsPostscript ifTrue:[
+            s nextPutLine:'Printer supportsColor: ' , (Printer supportsColor storeString) , '.'.
+        ].
     ].
-    Printer supportsMargins ifTrue:[
-        s nextPutLine:'Printer topMargin: ' , (Printer topMargin storeString) , '.'.
-        s nextPutLine:'Printer leftMargin: ' , (Printer leftMargin storeString) , '.'.
-        s nextPutLine:'Printer rightMargin: ' , (Printer rightMargin storeString) , '.'.
-        s nextPutLine:'Printer bottomMargin: ' , (Printer bottomMargin storeString) , '.'.
-    ].
-    Printer supportsPostscript ifTrue:[
-        s nextPutLine:'Printer supportsColor: ' , (Printer supportsColor storeString) , '.'.
-    ].
-].
     s cr.
     s nextPutLine:'"/'.
     s nextPutLine:'"/ Font settings:'.
@@ -2593,5 +2594,5 @@
 !UserPreferences class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic/UserPreferences.st,v 1.199 2008-05-08 14:07:31 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/UserPreferences.st,v 1.200 2008-05-13 12:32:59 cg Exp $'
 ! !