diff --git a/pitfall/pitfall/alltest.rkt b/pitfall/pitfall/alltest.rkt
index 4885e8d4..dd055e74 100644
--- a/pitfall/pitfall/alltest.rkt
+++ b/pitfall/pitfall/alltest.rkt
@@ -4,4 +4,5 @@
            pitfall/test/test1
            pitfall/test/test2
            pitfall/test/test3
+           pitfall/test/test4
            pitfall/page-test))
\ No newline at end of file
diff --git a/pitfall/pitfall/font.rkt b/pitfall/pitfall/font.rkt
index 4d2f9c73..ac926cf3 100644
--- a/pitfall/pitfall/font.rkt
+++ b/pitfall/pitfall/font.rkt
@@ -84,7 +84,7 @@
   (define glyphs (send this-font glyphsForString str))
   (define advances (send this-font advancesForGlyphs glyphs))
   (define width (apply + advances))
-  (define scale (/ size 1000))
+  (define scale (/ size 1000.0))
   (* width scale))