Index: openacs-4/packages/acs-subsite/tcl/attribute-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-subsite/tcl/attribute-procs.tcl,v
diff -u -r1.13 -r1.14
--- openacs-4/packages/acs-subsite/tcl/attribute-procs.tcl	7 Aug 2017 23:47:58 -0000	1.13
+++ openacs-4/packages/acs-subsite/tcl/attribute-procs.tcl	1 Oct 2017 12:16:05 -0000	1.14
@@ -188,7 +188,7 @@
     set type ""
     set constraint ""
     
-    switch $datatype {
+    switch -- $datatype {
         "string" { set type "varchar(1000)" }
         "boolean" { set type "char(1)"
                     set constraint "[plsql_utility::generate_constraint_name $table $column "ck"] check ($column in ('t','f'))" }