Index: openacs-4/packages/xotcl-core/xotcl-core.info
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/xotcl-core/xotcl-core.info,v
diff -u -r1.105 -r1.106
--- openacs-4/packages/xotcl-core/xotcl-core.info	5 Aug 2018 22:06:21 -0000	1.105
+++ openacs-4/packages/xotcl-core/xotcl-core.info	31 Jan 2019 14:32:23 -0000	1.106
@@ -10,7 +10,7 @@
     <inherit-templates-p>t</inherit-templates-p>
     <auto-mount>xotcl</auto-mount>
 
-    <version name="5.10.0d12" url="http://media.wu-wien.ac.at/download/xotcl-core-5.10.0d12.apm">
+    <version name="5.10.0d13" url="http://media.wu-wien.ac.at/download/xotcl-core-5.10.0d13.apm">
         <owner url="mailto:neumann@wu-wien.ac.at">Gustaf Neumann</owner>
         <summary>XOTcl library functionality (e.g. thread handling, online documentation, Generic Form and List Classes)</summary>
         <release-date>2017-08-06</release-date>
@@ -43,8 +43,8 @@
         <license>BSD-Style</license>
         <maturity>2</maturity>
 
-        <provides url="xotcl-core" version="5.10.0d12"/>
-	<requires url="acs-kernel" version="5.9.1"/>
+        <provides url="xotcl-core" version="5.10.0d13"/>
+	<requires url="acs-kernel" version="5.10.0d11"/>
 	<requires url="acs-templating" version="5.9.1"/>
 	<requires url="acs-api-browser" version="5.9.1"/>
 	<requires url="acs-content-repository" version="5.9.1"/>
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.146 -r1.147
--- openacs-4/packages/xotcl-core/tcl/05-db-procs.tcl	25 Jan 2019 23:09:19 -0000	1.146
+++ openacs-4/packages/xotcl-core/tcl/05-db-procs.tcl	31 Jan 2019 14:32:23 -0000	1.147
@@ -846,8 +846,8 @@
       set column_name [string tolower $column_name]
     }
     ::xo::db::sql::util table_column_exists \
-        -t_name $table_name \
-        -c_name $column_name
+        -p_table $table_name \
+        -p_column $column_name
   }
 
   require proc table {name definition {populate ""}} {
@@ -1841,6 +1841,7 @@
           # certainly a new default
           if {[::xo::dc get_value check_default "
              select coalesce($clause, true) from dual"]} {
+            ns_log warning "needed"
             ::xo::dc dml alter-table-$table \
                 "alter table $table alter column $col set default :value"
           }