--- a/PrinterStream.st	Tue Apr 02 23:11:30 2013 +0200
+++ b/PrinterStream.st	Tue Apr 02 23:11:34 2013 +0200
@@ -92,6 +92,12 @@
 initialize
     "this is usually redefined by the startup-file"
 
+    "/ self initializePrintParameters  -- now done lazily
+!
+
+initializePrintParameters
+    "this is usually redefined by the startup-file"
+
     OperatingSystem isUNIXlike ifTrue:[
         DefaultCommands isNil ifTrue:[
             DefaultCommands := #(
@@ -232,7 +238,8 @@
     DefaultCommands isNil ifTrue:[
         self == PrinterStream ifFalse:[
             ^ self superclass defaultCommands
-        ]
+        ].
+        self initializePrintParameters
     ].
     ^ DefaultCommands
 
@@ -261,7 +268,8 @@
     DefaultDevices isNil ifTrue:[
         self == PrinterStream ifFalse:[
             ^ self superclass defaultDevices
-        ]
+        ].
+        self initializePrintParameters
     ].
     ^ DefaultDevices
 !
@@ -282,11 +290,10 @@
         PrinterStream defaultPageFormats:#( ... )"
 
     DefaultPageFormats isNil ifTrue:[
-        self == PrinterStream ifTrue:[
-            ^ #(a4)
-        ] ifFalse:[
+        self == PrinterStream ifFalse:[
             ^ self superclass defaultPageFormats
-        ]
+        ].
+        self initializePrintParameters
     ].
     ^ DefaultPageFormats
 
@@ -356,7 +363,8 @@
     Landscape isNil ifTrue:[
         self == PrinterStream ifFalse:[
             ^ self superclass landscape
-        ]
+        ].
+        self initializePrintParameters
     ].
     ^ Landscape
 !
@@ -389,7 +397,8 @@
     PageFormat isNil ifTrue:[
         self == PrinterStream ifFalse:[
             ^ self superclass pageFormat
-        ]
+        ].
+        self initializePrintParameters
     ].
     ^ PageFormat
 
@@ -419,9 +428,10 @@
      settings menu."
 
     PrintCommand isNil ifTrue:[
-        self ~~ PrinterStream ifTrue:[
+        self ~~ PrinterStream ifTrue:[  
             ^ self superclass printCommand
-        ]
+        ].
+        self initializePrintParameters.
     ].
     ^ PrintCommand
 
@@ -452,9 +462,10 @@
      settings menu."
 
     PrintDevice isNil ifTrue:[
-        self == PrinterStream ifFalse:[
+        self ~~ PrinterStream ifTrue:[
             ^ self superclass printDevice
-        ]
+        ].
+        self initializePrintParameters.
     ].
     ^ PrintDevice
 !
@@ -1039,7 +1050,8 @@
 !PrinterStream class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic2/PrinterStream.st,v 1.73 2012-12-10 11:12:08 stefan Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic2/PrinterStream.st,v 1.74 2013-04-02 21:11:34 cg Exp $'
 ! !
 
+
 PrinterStream initialize!