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 -N -r1.22.2.1 -r1.22.2.2
--- openacs-4/packages/acs-developer-support/www/index.tcl	10 Sep 2015 08:21:23 -0000	1.22.2.1
+++ openacs-4/packages/acs-developer-support/www/index.tcl	22 May 2016 19:22:11 -0000	1.22.2.2
@@ -122,15 +122,16 @@
 		unset conn
 	    }
 	    array set conn [nsv_get ds_request $request]
-
+            ns_log notice "conn= [array get conn]"
 	    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"
+                ns_log notice "{ $conn(endclicks) - $conn(startclicks) } -> $duration"
 	    } else {
 		set duration ""
 	    }