--- a/GraphicsMedium.st	Thu Nov 24 08:59:11 2016 +0100
+++ b/GraphicsMedium.st	Thu Nov 24 08:59:33 2016 +0100
@@ -1,5 +1,3 @@
-"{ Encoding: utf8 }"
-
 "
  COPYRIGHT (c) 1989 by Claus Gittinger
 	      All Rights Reserved
@@ -1063,6 +1061,13 @@
     gc setClippingBounds:aRectangleOrNil
 !
 
+setDevice:aDevice
+    "set the device"
+
+    device := aDevice.
+    gc setDevice:aDevice
+!
+
 setGraphicsExposures:aBoolean
     "want to if aBoolean is true - or don't want to be notified
      of graphics exposures"