Index: openacs-4/packages/acs-developer-support/www/index.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-developer-support/www/index.tcl,v
diff -u -r1.22 -r1.23
--- openacs-4/packages/acs-developer-support/www/index.tcl	15 Jun 2015 20:27:13 -0000	1.22
+++ openacs-4/packages/acs-developer-support/www/index.tcl	7 Aug 2017 23:47:56 -0000	1.23
@@ -122,15 +122,14 @@
 		unset conn
 	    }
 	    array set conn [nsv_get ds_request $request]
-
 	    if { [catch {
 		set start [ns_fmttime [lindex [nsv_get ds_request "$id.start"] 0] "%T"]
 	    }] } {
 		set start "?"
 	    }
 
 	    if { [info exists conn(startclicks)] && [info exists conn(endclicks)] } {
-		set duration "[expr { ($conn(endclicks) - $conn(startclicks))}] ms"
+		set duration "[expr { ($conn(endclicks) - $conn(startclicks)) / 1000.0 }] ms"
 	    } else {
 		set duration ""
 	    }
@@ -195,3 +194,9 @@
 }
 
 append body "</blockquote>"
+
+# Local variables:
+#    mode: tcl
+#    tcl-indent-level: 4
+#    indent-tabs-mode: nil
+# End: