Index: openacs-4/packages/acs-tcl/tcl/test/acs-tcl-test-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-tcl/tcl/test/acs-tcl-test-procs.tcl,v
diff -u -N -r1.63 -r1.64
--- openacs-4/packages/acs-tcl/tcl/test/acs-tcl-test-procs.tcl	17 Sep 2018 18:30:51 -0000	1.63
+++ openacs-4/packages/acs-tcl/tcl/test/acs-tcl-test-procs.tcl	18 Sep 2018 14:16:57 -0000	1.64
@@ -779,7 +779,7 @@
         @creation-date 2018-09-17
         @author Héctor Romojaro <hector.romojaro@gmail.com>
 } {
-    aa_equals "Empty value" {} [util::trim_leading_zeros {}]
+    aa_equals "Empty value" [util::trim_leading_zeros {}] {}
     aa_equals "Real value (0.31)" [util::trim_leading_zeros 0.31] {.31}
     aa_equals "Real value with multiple leading zeroes (000.31)" [util::trim_leading_zeros 0000.31] {.31}
     aa_equals "Real value already trimmed (.31)" [util::trim_leading_zeros .31] {.31}
@@ -845,6 +845,35 @@
 }
 
 aa_register_case \
+    -cats {api smoke production_safe} \
+    -procs util_commify_number \
+    util__commify_number {
+
+        Test util_commify_number
+
+        @creation-date 2018-09-18
+        @author Héctor Romojaro <hector.romojaro@gmail.com>
+} {
+    aa_equals "Empty value" [util_commify_number {}] {}
+    aa_equals "0" [util_commify_number 0] {0}
+    aa_equals "0.0" [util_commify_number 0.0] {0.0}
+    aa_equals ".0" [util_commify_number .0] {.0}
+    aa_equals "100" [util_commify_number 100] {100}
+    aa_equals "1000" [util_commify_number 1000] {1,000}
+    aa_equals "1000000" [util_commify_number 1000000] {1,000,000}
+    aa_equals "1000000000" [util_commify_number 1000000000] {1,000,000,000}
+    aa_equals "1000000000.0002340" [util_commify_number 1000000000.0002340] {1,000,000,000.0002340}
+    aa_equals "-0" [util_commify_number -0] {-0}
+    aa_equals "-.0" [util_commify_number -.0] {-.0}
+    aa_equals "-.0000" [util_commify_number -.0000] {-.0000}
+    aa_equals "-100" [util_commify_number -100] {-100}
+    aa_equals "-1000" [util_commify_number -1000] {-1,000}
+    aa_equals "-1000000" [util_commify_number -1000000] {-1,000,000}
+    aa_equals "-1000000000" [util_commify_number -1000000000] {-1,000,000,000}
+    aa_equals "-1000000000.0002340" [util_commify_number -1000000000.0002340] {-1,000,000,000.0002340}
+}
+
+aa_register_case \
     -cats {api} \
     -procs util_url_valid_p \
     acs_tcl__util_url_valid_p {