--- a/Form.st	Sun Apr 03 16:05:41 2016 +0100
+++ b/Form.st	Sun Apr 03 17:09:29 2016 +0100
@@ -1797,7 +1797,7 @@
             localColorMap := BlackAndWhiteColorMap.
         ].
     ].
-    self graphicsDevice notNil ifTrue:[
+    device notNil ifTrue:[
         gc createPixmapWidth:w height:h depth:d.
         realized := true.
     ].
@@ -1897,7 +1897,7 @@
         localColorMap := BlackAndWhiteColorMap.
     ].
 
-    self graphicsDevice notNil ifTrue:[
+    device notNil ifTrue:[
         gc createBitmapFromArray:bytes width:w height:h.
         realized := true.
     ].