Index: openacs-4/packages/acs-developer-support/tcl/acs-developer-support-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-developer-support/tcl/acs-developer-support-procs.tcl,v
diff -u -r1.52.2.8 -r1.52.2.9
--- openacs-4/packages/acs-developer-support/tcl/acs-developer-support-procs.tcl	9 Sep 2013 16:44:18 -0000	1.52.2.8
+++ openacs-4/packages/acs-developer-support/tcl/acs-developer-support-procs.tcl	30 Sep 2013 11:09:27 -0000	1.52.2.9
@@ -668,7 +668,7 @@
             if { [info exists ::ds_profile__start_clock($tag)] 
                  && $::ds_profile__start_clock($tag) ne "" } {
                 ds_add prof $tag \
-                    [expr [clock clicks -milliseconds] - $::ds_profile__start_clock($tag)]
+                    [expr {[clock clicks -milliseconds] - $::ds_profile__start_clock($tag)}]
                 unset ::ds_profile__start_clock($tag)
             } else {
                 ns_log Warning "ds_profile stop called without a corresponding call to ds_profile start, with tag $tag"