--- a/PrinterContext.st	Sun Apr 03 07:05:37 2016 +0200
+++ b/PrinterContext.st	Sun Apr 03 19:24:40 2016 +0100
@@ -332,7 +332,7 @@
 
     width := self printerWidthArea.
     height := self printerHeightArea.
-    self graphicsDevice
+    device
         width:width;
         height:height.
     
@@ -765,7 +765,7 @@
         |lineToPrint|
 
         lineToPrint := (anIndexedCollection at:i).
-        self graphicsDevice 
+        device 
             displayString:lineToPrint
             from:1
             to:lineToPrint size