--- a/GraphicsContext.st	Tue May 10 15:06:41 2016 +0200
+++ b/GraphicsContext.st	Tue May 10 15:08:19 2016 +0200
@@ -1,3 +1,5 @@
+"{ Encoding: utf8 }"
+
 "
  COPYRIGHT (c) 1992 by Claus Gittinger
 	      All Rights Reserved
@@ -1604,6 +1606,7 @@
                      height:(yMax-yMin+1+aForm height) 
                      depth:aForm depth
                      onDevice:device.
+    tempForm isNil ifTrue:[^nil].
     tempForm clear.
     tempForm paint:(Color colorId:1) on:(Color colorId:0).
     tempForm function:#or.
@@ -1974,12 +1977,8 @@
         h := font height.
         descent := h - ascent.
 
-        tempForm := Form 
-                    width:w 
-                    height:h
-                    depth:1
-                    onDevice:device.
-
+        tempForm := Form width:w height:h depth:1 onDevice:device.
+        tempForm isNil ifTrue:[^ self].
         tempForm clear.
         tempForm font:font.
         tempForm paint:(Color colorId:1) on:(Color colorId:0).
@@ -1996,12 +1995,8 @@
 "/        ascent := font ascent max:(h // 2).
 "/        descent := (h - font ascent) max:(h // 2).
 
-        tempForm := Form 
-                    width:w 
-                    height:h
-                    depth:(device depth)
-                    onDevice:device.
-
+        tempForm := Form width:w height:h depth:(device depth) onDevice:device.
+        tempForm isNil ifTrue:[^ self].
         tempForm paint:bgPaint.
         tempForm fillRectangleX:0 y:0 width:w height:h.
         tempForm paint:paint on:bgPaint.