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 ;
 
diff --git a/extra/spheres/tags.txt b/extra/spheres/tags.txt
index 2e6040bd16..b9a82374be 100644
--- a/extra/spheres/tags.txt
+++ b/extra/spheres/tags.txt
@@ -1,2 +1,3 @@
 opengl
 glsl
+demos