--- a/WorkspaceApplication.st	Mon Mar 29 18:33:29 2004 +0200
+++ b/WorkspaceApplication.st	Tue Mar 30 20:47:54 2004 +0200
@@ -660,7 +660,9 @@
 
             forcedEncoding notNil ifTrue:[
                 encoding := forcedEncoding.
-                pane font:font.
+                font notNil ifTrue:[
+                    pane font:font.
+                ]
             ] ifFalse:[
                 encoding := SourceCodeManagerUtilities guessEncodingOfFile:path.
                 (encoding == #'iso8859-1' or:[encoding == #'ascii']) ifTrue:[
@@ -1335,5 +1337,5 @@
 !WorkspaceApplication class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libtool/WorkspaceApplication.st,v 1.83 2004-03-17 12:28:17 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/WorkspaceApplication.st,v 1.84 2004-03-30 18:47:54 cg Exp $'
 ! !