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.13 -r1.52.2.14
--- openacs-4/packages/acs-developer-support/tcl/acs-developer-support-procs.tcl	10 Feb 2014 20:27:44 -0000	1.52.2.13
+++ openacs-4/packages/acs-developer-support/tcl/acs-developer-support-procs.tcl	10 Feb 2014 20:56:01 -0000	1.52.2.14
@@ -343,7 +343,7 @@
              }
          }
 
-         ds_add db $db $command $statement_name $bound_sql $start_time [clock clicks -microseconds] $errno $error
+         ds_add db $db $command $statement_name $bound_sql $start_time [expr {[clock clicks -microseconds]/1000.0}] $errno $error
      }
  }
 
@@ -404,7 +404,7 @@
 
  ad_proc -private ds_trace_filter { conn args why } { Adds developer-support information about the end of sessions.} {
      if { [ds_enabled_p] && [ds_collection_enabled_p] } {
-         ds_add conn end [ns_time] endclicks [clock clicks -milliseconds]
+         ds_add conn end [ns_time] endclicks [clock clicks -microseconds]
 
          for { set i 0 } { $i < [ns_set size [ad_conn outputheaders]] } { incr i } {
              ds_add oheaders [ns_set key [ad_conn outputheaders] $i] [ns_set value [ad_conn outputheaders] $i]
Index: openacs-4/packages/acs-tcl/tcl/00-database-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-tcl/tcl/Attic/00-database-procs.tcl,v
diff -u -r1.86.2.11 -r1.86.2.12
--- openacs-4/packages/acs-tcl/tcl/00-database-procs.tcl	10 Feb 2014 20:27:44 -0000	1.86.2.11
+++ openacs-4/packages/acs-tcl/tcl/00-database-procs.tcl	10 Feb 2014 20:56:00 -0000	1.86.2.12
@@ -495,7 +495,7 @@
     }
     if { $db_state(n_handles_used) >= [llength $db_state(handles)] } {
         set pool [db_nth_pool_name -dbn $dbn $db_state(n_handles_used)]
-        set start_time [clock clicks -microseconds]
+        set start_time [expr {[clock clicks -microseconds]/1000.0}]
         set errno [catch {
             set db [ns_db gethandle $pool]
         } error]
@@ -768,7 +768,7 @@
     @see db_exec_plsql
 
 } {
-    set start_time [clock clicks -microseconds]
+    set start_time [expr {[clock clicks -microseconds]/1000.0}]
 
     set sql [db_qd_replace_sql $statement_name $pre_sql]
 
@@ -951,7 +951,7 @@
                 break
             }
 
-            set start_time [clock clicks -microseconds]
+            set start_time [expr {[clock clicks -microseconds]/1000.0}]
             ns_db releasehandle $db
             ds_collect_db_call $db releasehandle "" "" $start_time 0 ""
             incr index_to_examine -1
@@ -967,7 +967,7 @@
     routines as necessary.
 
 } {
-    set start_time [clock clicks -microseconds]
+    set start_time [expr {[clock clicks -microseconds]/1000.0}]
     set errno [catch { return [ns_db getrow $db $selection] } error]
     ds_collect_db_call $db getrow "" "" $start_time $errno $error
     if { $errno == 2 } {
@@ -984,7 +984,7 @@
     (if set).
 
 } {
-    set start_time [clock clicks -microseconds]
+    set start_time [expr {[clock clicks -microseconds]/1000.0}]
     set start_time_fine [clock seconds]
     set driverkey [db_driverkey -handle_p 1 $db]
 
@@ -3176,7 +3176,7 @@
     depending on the value of the $bind variable in the calling environment
     (if set).
 } {
-    set start_time [clock clicks -microseconds]
+    set start_time [expr {[clock clicks -microseconds]/1000.0}]
 
     set sql [db_qd_replace_sql $statement_name $pre_sql]
 
@@ -3299,7 +3299,7 @@
     Low level replacement for db_exec which emulates blob handling.
 
 } {
-    set start_time [clock clicks -microseconds]
+    set start_time [expr {[clock clicks -microseconds]/1000.0}]
 
     # Query Dispatcher (OpenACS - ben)
     set sql [db_qd_replace_sql $statement_name $pre_sql]