Fix Uniscribe font size

diff --git a/basis/windows/fonts/fonts.factor b/basis/windows/fonts/fonts.factor
index b9fb48d8402a9a951b85c035726bab318ae373de..a034856b34a1dcc49f05b4c34e798bc3278cda5a 100755 (executable)
--- a/basis/windows/fonts/fonts.factor
+++ b/basis/windows/fonts/fonts.factor
@@ -1,4 +1,4 @@
-USING: assocs memoize locals kernel accessors init fonts\r
+USING: assocs memoize locals kernel accessors init fonts math\r
 combinators windows windows.types windows.gdi32 ;\r
 IN: windows.fonts\r
 \r
@@ -10,7 +10,7 @@ IN: windows.fonts
     } at-default ;\r
     \r
 MEMO:: (cache-font) ( font -- HFONT )\r
-    font size>> ! nHeight\r
+    font size>> neg ! nHeight\r
     0 0 0 ! nWidth, nEscapement, nOrientation\r
     font bold?>> FW_BOLD FW_NORMAL ? ! fnWeight\r
     font italic?>> TRUE FALSE ? ! fdwItalic\r