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.148.2.30 -r1.148.2.31
--- openacs-4/packages/xotcl-core/tcl/05-db-procs.tcl	24 Jan 2021 19:54:13 -0000	1.148.2.30
+++ openacs-4/packages/xotcl-core/tcl/05-db-procs.tcl	1 Feb 2021 10:41:29 -0000	1.148.2.31
@@ -922,13 +922,13 @@
 
     if {[info exists col]} {
       set colExpSQL $col
-      regsub -all ", *" $col _ colExpName
+      regsub -all -- ", *" $col _ colExpName
     } else {
       set colExpSQL ($expression)
       if {[info exists expression_name]} {
         set colExpName $expression_name
       } else {
-        regsub -all {[^[:alnum:]]} $expression "" colExpName
+        regsub -all -- {[^[:alnum:]]} $expression "" colExpName
       }
     }
     set suffix [expr {$unique ? "un_idx" : "idx"}]