--- a/CheckToggle.st	Sat Jan 28 18:20:47 2017 +0100
+++ b/CheckToggle.st	Sat Jan 28 18:23:09 2017 +0100
@@ -722,13 +722,13 @@
 drawEdges
 
     self isFlat ifTrue:[
-        self paint:self blackColor.
-        self displayRectangleX:0 y:0 width:width height:height.
-        ^self.
+        gc paint:self blackColor.
+        gc displayRectangleX:0 y:0 width:width height:height.
+        ^ self.
     ].
     LabelOverMargin ifTrue:[
         (logo isNil or:[logo isImageOrForm not]) ifTrue:[
-            self deviceClippingBounds:nil.
+            gc deviceClippingBounds:nil.
             self clearRectangleX:0 y:0 width:width height:height.
         ].
     ].