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.103.2.5 -r1.103.2.6
--- openacs-4/packages/xotcl-core/tcl/05-db-procs.tcl	20 Oct 2015 08:23:39 -0000	1.103.2.5
+++ openacs-4/packages/xotcl-core/tcl/05-db-procs.tcl	23 Dec 2015 18:14:33 -0000	1.103.2.6
@@ -485,6 +485,7 @@
     uplevel [list ::db_1row [uplevel [list [self] qn $qn]] $sql {*}$bindOpt]
   }
   ::xo::db::DB instproc dml {{-dbn ""} {-bind ""} qn sql} {
+    if {$sql eq ""} {set sql [my get_sql $qn]}
     if {$bind ne ""} {set bindOpt [list -bind $bind]} {set bindOpt ""}
     uplevel [list ::db_dml [uplevel [list [self] qn $qn]] $sql {*}$bindOpt]
     return [db_resultrows]
@@ -1009,7 +1010,7 @@
           ::xo::dc dml drop_table "drop table $table_name"
         }
       } errorMsg]} {
-        my log "error during drop_type"
+        ns_log error "error during drop_type: $errorMsg"
       }
     }
     ::xo::db::sql::acs_object_type drop_type \