--- a/PrinterContext.st	Tue Mar 18 16:14:17 2014 +0100
+++ b/PrinterContext.st	Wed Mar 19 11:04:20 2014 +0100
@@ -757,7 +757,7 @@
     "Private - display Strings in anIndexedCollection starting at startIndex and
      ending at endIndex, clipped within the bounds of aRectangle."
     
-    |charHeight ta region ascent|
+    |charHeight ascent|
 
     charHeight := self getCharHeight.
     ascent := self font ascentOn:self device.
@@ -765,14 +765,14 @@
         |lineToPrint|
 
         lineToPrint := (anIndexedCollection at:i).
-        self device 
+        self graphicsDevice 
             displayString:lineToPrint
             from:1
             to:lineToPrint size
             x:aRectangle left
             y:(aRectangle top + ((i - startIndex) * charHeight))
             in:nil
-            with:gcId
+            with:self gcId
             opaque:false
             fontAscent:ascent.
     ].
@@ -954,6 +954,6 @@
 !PrinterContext class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libview2/PrinterContext.st,v 1.20 2014-02-18 15:06:02 stefan Exp $'
+    ^ '$Header: /cvs/stx/stx/libview2/PrinterContext.st,v 1.21 2014-03-19 10:04:20 stefan Exp $'
 ! !