Index: openacs-4/packages/acs-subsite/tcl/plsql-utility-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-subsite/tcl/plsql-utility-procs.tcl,v
diff -u -r1.9.2.2 -r1.9.2.3
--- openacs-4/packages/acs-subsite/tcl/plsql-utility-procs.tcl	3 Jul 2020 07:43:20 -0000	1.9.2.2
+++ openacs-4/packages/acs-subsite/tcl/plsql-utility-procs.tcl	1 Feb 2021 10:58:35 -0000	1.9.2.3
@@ -151,12 +151,12 @@
             set suffix ""
         }
         # Leave only letters, numbers, underscores, dashes, and spaces
-        regsub -all {[^ _\-a-z0-9]} [string tolower $stem] "" stem
+        regsub -all -- {[^ _\-a-z0-9]} [string tolower $stem] "" stem
         # Make sure it starts with a letter
         regsub {^[^a-z]} $stem "" stem
 
         # change spaces to underscores
-        regsub -all {\s+} $stem "_" stem
+        regsub -all -- {\s+} $stem "_" stem
         #Trim to fit in $max_length character limit
         set max_length_without_suffix [expr {$max_length - [string length $suffix]}]
         if { [string length $stem] >= $max_length_without_suffix } {