--- a/GraphicsContext.st	Wed Oct 09 12:13:32 2013 +0200
+++ b/GraphicsContext.st	Wed Oct 09 12:21:33 2013 +0200
@@ -2422,7 +2422,7 @@
     lineStyle := #solid.
     joinStyle := #miter.
     capStyle := #butt.
-    font := DefaultFont.
+    font := self class defaultFont.
     characterEncoding := #'iso10646-1'. "/ aka unicode
 ! !
 
@@ -2467,11 +2467,11 @@
 !GraphicsContext class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libview/GraphicsContext.st,v 1.127 2013-06-20 15:38:24 mb Exp $'
+    ^ '$Header: /cvs/stx/stx/libview/GraphicsContext.st,v 1.128 2013-10-09 10:21:33 stefan Exp $'
 !
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libview/GraphicsContext.st,v 1.127 2013-06-20 15:38:24 mb Exp $'
+    ^ '$Header: /cvs/stx/stx/libview/GraphicsContext.st,v 1.128 2013-10-09 10:21:33 stefan Exp $'
 ! !