Index: openacs-4/packages/xotcl-core/tcl/05-db-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/xotcl-core/tcl/05-db-procs.tcl,v
diff -u -r1.4 -r1.5
--- openacs-4/packages/xotcl-core/tcl/05-db-procs.tcl	6 Apr 2007 13:13:09 -0000	1.4
+++ openacs-4/packages/xotcl-core/tcl/05-db-procs.tcl	6 Apr 2007 21:51:32 -0000	1.5
@@ -97,14 +97,14 @@
       if {$n} {
         my log "sql=$sql_command"
       } else {
-        #my log "sql=$sql_command"
+        my log "sql=$sql_command"
         eval $sql_command
       }
     }]
   }
 
   DbPackage instproc unknown {m args} {
-    my log "Error: unknown database method $m"
+    error "Error: unknown database method $m for dbpackage [self]"
   }
  
   DbPackage proc create_all_functions {} {