Index: openacs-4/packages/acs-tcl/tcl/utilities-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-tcl/tcl/utilities-procs.tcl,v
diff -u -N -r1.140.2.82 -r1.140.2.83
--- openacs-4/packages/acs-tcl/tcl/utilities-procs.tcl	28 Jul 2017 02:59:09 -0000	1.140.2.82
+++ openacs-4/packages/acs-tcl/tcl/utilities-procs.tcl	28 Jul 2017 09:52:36 -0000	1.140.2.83
@@ -5109,12 +5109,12 @@
     the leading zero; i.e. 0.231 -> .231 -- this is still fine
     for Tcl though...
 } {
-    set string [string trimleft $string 0]
-
-    if {$string eq ""} {
-        return 0
+    if {$string ne ""} {
+        set string [string trimleft $string 0]
+        if {$string eq ""} {
+            set string 0
+        }
     }
-
     return $string
 }