Index: openacs-4/packages/acs-tcl/tcl/00-database-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-tcl/tcl/00-database-procs.tcl,v
diff -u -N -r1.86.2.10 -r1.86.2.11
--- openacs-4/packages/acs-tcl/tcl/00-database-procs.tcl	6 Dec 2013 08:59:32 -0000	1.86.2.10
+++ openacs-4/packages/acs-tcl/tcl/00-database-procs.tcl	10 Feb 2014 20:27:44 -0000	1.86.2.11
@@ -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 -milliseconds]
+        set start_time [clock clicks -microseconds]
         set errno [catch {
             set db [ns_db gethandle $pool]
         } error]
@@ -768,7 +768,7 @@
     @see db_exec_plsql
 
 } {
-    set start_time [clock clicks -milliseconds]
+    set start_time [clock clicks -microseconds]
 
     set sql [db_qd_replace_sql $statement_name $pre_sql]
 
@@ -951,7 +951,7 @@
                 break
             }
 
-            set start_time [clock clicks -milliseconds]
+            set start_time [clock clicks -microseconds]
             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 -milliseconds]
+    set start_time [clock clicks -microseconds]
     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 -milliseconds]
+    set start_time [clock clicks -microseconds]
     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 -milliseconds]
+    set start_time [clock clicks -microseconds]
 
     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 -milliseconds]
+    set start_time [clock clicks -microseconds]
 
     # Query Dispatcher (OpenACS - ben)
     set sql [db_qd_replace_sql $statement_name $pre_sql]