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.19 -r1.103.2.20
--- openacs-4/packages/xotcl-core/tcl/05-db-procs.tcl	6 Jan 2017 16:24:56 -0000	1.103.2.19
+++ openacs-4/packages/xotcl-core/tcl/05-db-procs.tcl	6 Jan 2017 16:37:11 -0000	1.103.2.20
@@ -1609,10 +1609,10 @@
         ::xo::dc 0or1row query $query
       }
     }
-
+  } else {
     # If we have the proper utils, require object can be enhanced with
     # new procs
-    if {[::xo::db::sql::util info methods get_default] ne ""} {    
+    if {[::xo::db::sql::util info commands get_default] ne ""} {
       require proc unique {-table -col} {
         # Unique could be there by a index too
         set idxname [::xo::dc mk_sql_constraint_name $table $col un_idx]