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.104 -r1.105
--- openacs-4/packages/xotcl-core/tcl/05-db-procs.tcl	7 Aug 2017 23:48:30 -0000	1.104
+++ openacs-4/packages/xotcl-core/tcl/05-db-procs.tcl	1 Oct 2017 12:10:25 -0000	1.105
@@ -1957,7 +1957,7 @@
         foreach constr $db_constraints($col) {
           set type  [lindex $constr 0]
           set value [join [lrange $constr 1 end]]
-          switch $type {
+          switch -- $type {
             "unique" {
               ::xo::db::require unique \
                   -table $table_name -col $col