--- a/WorkspaceApplication.st	Thu Mar 11 16:39:26 2004 +0100
+++ b/WorkspaceApplication.st	Thu Mar 11 16:52:05 2004 +0100
@@ -659,7 +659,8 @@
             wsApp addWindow:(pane := HVScrollableView for:Workspace) named:title asFirst:false.
 
             forcedEncoding notNil ifTrue:[
-                encoding := forcedEncoding
+                encoding := forcedEncoding.
+                pane font:font.
             ] ifFalse:[
                 encoding := SourceCodeManagerUtilities guessEncodingOfFile:path.
                 (encoding == #'iso8859-1' or:[encoding == #'ascii']) ifTrue:[
@@ -1333,5 +1334,5 @@
 !WorkspaceApplication class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libtool/WorkspaceApplication.st,v 1.79 2004-03-11 15:39:00 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/WorkspaceApplication.st,v 1.80 2004-03-11 15:52:05 cg Exp $'
 ! !