--- a/HostGraphicsDevice.st	Tue Aug 01 10:50:02 2006 +0200
+++ b/HostGraphicsDevice.st	Mon Aug 07 15:06:44 2006 +0200
@@ -105,7 +105,9 @@
     "return the registry keeping track of fonts which were allocated
      on this device."
 
-    ^ deviceFonts
+    ^ deviceFonts ? #()
+
+    "Modified: / 28-07-2006 / 19:48:23 / fm"
 !
 
 deviceForms
@@ -261,5 +263,5 @@
 !HostGraphicsDevice class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libview/HostGraphicsDevice.st,v 1.23 2004-09-07 14:48:47 stefan Exp $'
+    ^ '$Header: /cvs/stx/stx/libview/HostGraphicsDevice.st,v 1.24 2006-08-07 13:06:44 fm Exp $'
 ! !