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 -N -r1.103.2.16 -r1.103.2.17
--- openacs-4/packages/xotcl-core/tcl/05-db-procs.tcl	4 Jan 2017 17:55:03 -0000	1.103.2.16
+++ openacs-4/packages/xotcl-core/tcl/05-db-procs.tcl	4 Jan 2017 18:16:47 -0000	1.103.2.17
@@ -780,7 +780,7 @@
     set default [::xo::db::sql::util get_default -table $table -column $col]
     if {$default ne $value} {
       ::xo::dc dml alter-table-$table \
-          "alter table $table alter column $col set default '$value'"
+          "alter table $table alter column $col set default :value"
     }
   }