diff --git a/src/clj/user.clj b/src/clj/user.clj
index f0cb058d..9cc8cb94 100644
--- a/src/clj/user.clj
+++ b/src/clj/user.clj
@@ -427,3 +427,12 @@
     (filter 
      (fn [[e accounts]] (not= accounts (get jel-accounts e)))
      transaction-accounts)))
+
+
+
+(defn spit-csv [columns data ]
+  (csv/write-csv *out*
+                 (into [(map name columns)]
+                       (for [r data]
+                         ((apply juxt columns) r )))))
+
diff --git a/src/cljc/auto_ap/numeric.cljc b/src/cljc/auto_ap/numeric.cljc
index e122f3ba..c13f7b28 100644
--- a/src/cljc/auto_ap/numeric.cljc
+++ b/src/cljc/auto_ap/numeric.cljc
@@ -88,7 +88,7 @@
 
 
 (defn num->words [num]
-  (let [total-cents (int (* 100 num)) 
+  (let [total-cents (int (Math/round (* 100 num))) 
         dollar-num (int (quot total-cents 100))
         cent-num (int (rem total-cents 100))
         dollars (str (words dollar-num) " dollars")