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 -r1.63 -r1.64
--- openacs-4/packages/acs-tcl/tcl/00-database-procs.tcl	4 Jun 2006 00:45:47 -0000	1.63
+++ openacs-4/packages/acs-tcl/tcl/00-database-procs.tcl	15 Dec 2006 00:02:00 -0000	1.64
@@ -919,7 +919,7 @@
 
 } {
     set start_time [clock clicks -milliseconds]
-    set start_time_fine [clock clicks]
+    set start_time_fine [clock seconds]
     set driverkey [db_driverkey -handle_p 1 $db]
 
     # Note: Although marked as private, db_exec is in fact called
@@ -1015,9 +1015,9 @@
     # JCD: we log the clicks, dbname, query time, and statement to catch long running queries.
     # If we took more than 5 seconds yack about it.
     if { [expr [clock clicks -milliseconds] - $start_time] > 5000} {
-        ns_log Warning "db_exec: longdb [expr [clock clicks] - $start_time_fine] $db $type $statement_name"
+        ns_log Warning "db_exec: longdb [expr [clock seconds] - $start_time_fine] seconds $db $type $statement_name"
     } else { 
-        ns_log Debug "db_exec: timing [expr [clock clicks] - $start_time_fine] $db $type $statement_name"
+        ns_log Debug "db_exec: timing [expr [clock seconds] - $start_time_fine] seconds $db $type $statement_name"
     }
 
     ds_collect_db_call $db $type $statement_name $sql $start_time $errno $error