--- a/GraphicsMedium.st	Sat Jul 23 19:52:29 2016 +0200
+++ b/GraphicsMedium.st	Sat Jul 23 20:24:30 2016 +0200
@@ -1382,13 +1382,12 @@
     ] ifFalse:[
         deviceDrawable := aDrawable
     ].
-    asy := async or:[self isView not].
+    asy := async or:[aDrawable isForm or:[self isView not]].
     asy ifFalse:[
         self catchExpose
     ].
     gc copyFrom:deviceDrawable graphicsContext x:srcX y:srcY toX:dstX y:dstY width:w height:h depth:self depth.
     asy ifFalse:[
-        device flush.
         self waitForExpose
     ]
 !