--- a/Font.st	Wed Apr 22 10:01:31 1998 +0200
+++ b/Font.st	Wed Apr 22 12:58:29 1998 +0200
@@ -516,9 +516,11 @@
 disposed
     "some Font has been collected - tell it to the x-server"
 
-    fontId notNil ifTrue:[
-	device releaseFont:fontId.
-	fontId := nil
+    |id|
+
+    (id := fontId) notNil ifTrue:[
+	fontId := nil.
+	device releaseFont:id.
     ]
 !
 
@@ -1088,6 +1090,6 @@
 !Font class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libview/Font.st,v 1.62 1997-06-18 10:15:59 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libview/Font.st,v 1.63 1998-04-22 10:57:16 cg Exp $'
 ! !
 Font initialize!