--- a/GraphicsMedium.st	Sun Apr 03 17:09:29 2016 +0100
+++ b/GraphicsMedium.st	Sun Apr 03 19:22:51 2016 +0100
@@ -1949,7 +1949,7 @@
     tempForm := Form width:(xMax-xMin+1+aForm width)
                      height:(yMax-yMin+1+aForm height)
                      depth:aForm depth
-                     onDevice:self graphicsDevice.
+                     onDevice:device.
     tempForm clear.
     tempForm paint:(Color colorId:1) on:(Color colorId:0).
     tempForm function:#or.