--- a/Font.st	Thu Jan 22 14:12:40 2009 +0100
+++ b/Font.st	Fri Jan 23 10:36:45 2009 +0100
@@ -218,7 +218,7 @@
         Replacements at:'charter'                put:'times'.
         Replacements at:'terminal'               put:'courier'.
 
-        Screen default platformName = 'WIN32' ifTrue:[
+        OperatingSystem isMSWINDOWSlike ifTrue:[
             Replacements at:'helvetica'          put:'Arial'.
         ].
     ]
@@ -1185,7 +1185,7 @@
 !Font class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libview/Font.st,v 1.106 2009-01-22 13:12:40 sr Exp $'
+    ^ '$Header: /cvs/stx/stx/libview/Font.st,v 1.107 2009-01-23 09:36:45 stefan Exp $'
 ! !
 
 Font initialize!