diff --git a/extra/money/money.factor b/extra/money/money.factor
index ba7a0ae04f..bf9f4d3a67 100644
--- a/extra/money/money.factor
+++ b/extra/money/money.factor
@@ -6,14 +6,16 @@ IN: money
 : dollars/cents ( dollars -- dollars cents )
     100 * 100 /mod round ;
 
-: money. ( object -- )
-    dollars/cents
-    [
+: money>string ( object -- string )
+    dollars/cents [
         "$" %
         swap number>string
         <reversed> 3 group "," join <reversed> %
         "." % number>string 2 CHAR: 0 pad-left %
-    ] "" make print ;
+    ] "" make ;
+
+: money. ( object -- )
+    money>string print ;
 
 ERROR: not-a-decimal x ;