diff --git a/extra/money/money-tests.factor b/extra/money/money-tests.factor
index 66abcb237f..786b4828a9 100644
--- a/extra/money/money-tests.factor
+++ b/extra/money/money-tests.factor
@@ -23,3 +23,8 @@ IN: money.tests
 
 { "$100.00" } [ DECIMAL: 100.0 money>string ] unit-test
 { "$0.00" } [ DECIMAL: 0.0 money>string ] unit-test
+
+{ "$1.00" } [ 1.0 money>string ] unit-test
+{ "$1.00" } [ 1 money>string ] unit-test
+{ "$1.50" } [ 1+1/2 money>string ] unit-test
+{ "$1.50" } [ 1.50 money>string ] unit-test
diff --git a/extra/money/money.factor b/extra/money/money.factor
index 3e352c8828..6b54b231a3 100644
--- a/extra/money/money.factor
+++ b/extra/money/money.factor
@@ -8,7 +8,7 @@ SYMBOL: currency-token
 CHAR: $ currency-token set-global
 
 : dollars/cents ( dollars -- dollars cents )
-    100 * 100 /mod round ;
+    100 * 100 /mod round >integer ;
 
 : format-money ( dollars cents -- string )
     [ number>string ] bi@