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.76 -r1.77
--- openacs-4/packages/xotcl-core/tcl/05-db-procs.tcl	6 Oct 2008 11:59:14 -0000	1.76
+++ openacs-4/packages/xotcl-core/tcl/05-db-procs.tcl	10 Oct 2008 18:17:10 -0000	1.77
@@ -296,7 +296,7 @@
     }
     sql proc datatype_constraint {type table att} {
       set constraint ""
-      switch $type {
+      switch -- $type {
         boolean {
           set cname [::xo::db::mk_sql_constraint_name $table $att _ck]
           set constraint "constraint $cname check ($att in ('t','f'))"}