--- a/Font.st	Mon Jan 12 09:56:36 2009 +0100
+++ b/Font.st	Thu Jan 22 14:12:40 2009 +0100
@@ -217,6 +217,10 @@
         Replacements at:'lucidatypewriter'       put:'courier'.
         Replacements at:'charter'                put:'times'.
         Replacements at:'terminal'               put:'courier'.
+
+        Screen default platformName = 'WIN32' ifTrue:[
+            Replacements at:'helvetica'          put:'Arial'.
+        ].
     ]
 ! !
 
@@ -293,6 +297,7 @@
     "Created: 28.5.1996 / 18:39:53 / cg"
 ! !
 
+
 !Font methodsFor:'copying'!
 
 deepCopyUsing:aDictionary postCopySelector:postCopySelector
@@ -447,7 +452,7 @@
     id notNil ifTrue:[
         ('Font [info]: use alternative size ', trySize printString, ' for ' , (self userFriendlyName)) infoPrintCR.
     ] ifFalse:[
-        alternative := Replacements at:family ifAbsent:nil.
+        alternative := Replacements at:family asLowercase ifAbsent:nil.
         alternative notNil ifTrue:[
             trySize := size - 1.
             [
@@ -1180,7 +1185,7 @@
 !Font class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libview/Font.st,v 1.105 2008-10-07 16:38:50 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libview/Font.st,v 1.106 2009-01-22 13:12:40 sr Exp $'
 ! !
 
 Font initialize!