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.144 -r1.145
--- openacs-4/packages/xotcl-core/tcl/05-db-procs.tcl	20 Jan 2019 15:22:58 -0000	1.144
+++ openacs-4/packages/xotcl-core/tcl/05-db-procs.tcl	25 Jan 2019 16:04:08 -0000	1.145
@@ -1818,6 +1818,16 @@
           lassign [split $default :] default .
           set default [string trim $default ']
         }
+        #
+        # Depending on the generation and real datatype of the DBMS,
+        # boolean values are reported differently from the DBMS.
+        #
+        if {
+            ($default eq "f" && $value eq "false")
+            || ($default eq "t" && $value eq "true")
+          } {
+          set value $default
+        }
         if {$default ne $value} {
           ::xo::dc dml alter-table-$table \
               "alter table $table alter column $col set default :value"