--- a/FileBrowser.st	Fri Feb 13 14:44:02 2004 +0100
+++ b/FileBrowser.st	Sat Feb 14 21:14:18 2004 +0100
@@ -5960,6 +5960,7 @@
                 s next.
                 s skipSeparators. 
             ].
+            s skipSeparators. 
             w := s upToSeparator.
             w notNil ifTrue:[
                 ^ (withoutQuotes value) asSymbol
@@ -6025,6 +6026,13 @@
                     (coding := f encoding) notNil 
                     and:[pref match:coding]].
 
+    defaultFont := FontDescription 
+                        family:subView font family 
+                        face:subView font face 
+                        style:subView font style 
+                        size:subView font size
+                        encoding:pref.
+
     defaultFont := TextView defaultFont onDevice:device.
     (pref match:(defaultFont encoding)) ifFalse:[
         defaultFont := nil.
@@ -7597,5 +7605,5 @@
 !FileBrowser class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libtool/FileBrowser.st,v 1.571 2004-02-13 13:44:02 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/FileBrowser.st,v 1.572 2004-02-14 20:14:18 cg Exp $'
 ! !