Index: openacs-4/packages/xotcl-core/tcl/cr-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/xotcl-core/tcl/cr-procs.tcl,v
diff -u -r1.23 -r1.24
--- openacs-4/packages/xotcl-core/tcl/cr-procs.tcl	27 Sep 2008 17:18:39 -0000	1.23
+++ openacs-4/packages/xotcl-core/tcl/cr-procs.tcl	3 Oct 2008 08:58:42 -0000	1.24
@@ -470,7 +470,7 @@
       lappend atts $fq
     }
     foreach {slot_name slot} [my array get db_slot] {
-      switch $slot {
+      switch -- $slot {
 	::xo::db::CrItem::slot::text {
 	  # We need the rule, since insert the handling of the sql
 	  # attribute "text" is somewhat magic. On insert, one can use the