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.39 -r1.40
--- openacs-4/packages/acs-developer-support/tcl/acs-developer-support-procs.tcl	4 Feb 2005 13:34:40 -0000	1.39
+++ openacs-4/packages/acs-developer-support/tcl/acs-developer-support-procs.tcl	6 Feb 2005 18:10:01 -0000	1.40
@@ -323,7 +323,7 @@
                 }
             } error]
             if { $errno } {
-                ns_log Warning "ds_collect_db_call: $error"
+                ns_log Warning "ds_collect_db_call: $error\nStatement: $statement_name\nSQL: $sql"
                 set bound_sql $sql
             }
         }
@@ -628,6 +628,9 @@
     
     @param tag The name of the operation you're timing. Could be the name of a procedure, or some other unique identifier.
 } {
+    if {![ds_enabled_p]} { 
+        error "DS not enabled"
+    }
     global ds_profile__total_ms ds_profile__iterations ds_profile__start_clock
     switch $command {
         start {