--- a/PrinterContext.st	Tue Feb 18 15:38:31 2014 +0100
+++ b/PrinterContext.st	Tue Feb 18 16:06:02 2014 +0100
@@ -332,7 +332,7 @@
 
     width := self printerWidthArea.
     height := self printerHeightArea.
-    device
+    self graphicsDevice
         width:width;
         height:height.
     
@@ -954,5 +954,6 @@
 !PrinterContext class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libview2/PrinterContext.st,v 1.19 2008-11-20 08:52:38 fm Exp $'
+    ^ '$Header: /cvs/stx/stx/libview2/PrinterContext.st,v 1.20 2014-02-18 15:06:02 stefan Exp $'
 ! !
+