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 -r1.133.2.13 -r1.133.2.14
--- openacs-4/packages/acs-tcl/tcl/utilities-procs.tcl	13 Sep 2013 12:43:45 -0000	1.133.2.13
+++ openacs-4/packages/acs-tcl/tcl/utilities-procs.tcl	14 Sep 2013 09:35:47 -0000	1.133.2.14
@@ -4245,7 +4245,7 @@
     set result {}
     if { $seconds > 0 } {
         set hrs [expr {$seconds / (60*60)}]
-        set mins [expr ($seconds / 60) % 60]
+        set mins [expr {($seconds / 60) % 60}]
         set secs [expr {$seconds % 60}]
         if { $hrs > 0 } { append result "${hrs}h " }
         if { $hrs > 0 || $mins > 0 } { append result "${mins}m " }