Index: openacs-4/packages/xotcl-core/tcl/ical-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/xotcl-core/tcl/ical-procs.tcl,v
diff -u -N -r1.22 -r1.23
--- openacs-4/packages/xotcl-core/tcl/ical-procs.tcl	2 Jul 2020 08:31:17 -0000	1.22
+++ openacs-4/packages/xotcl-core/tcl/ical-procs.tcl	1 Feb 2021 10:41:30 -0000	1.23
@@ -71,16 +71,16 @@
     Transform arbitrary text to the escaped ical text format
     (see rfc 2445)
   } {
-    if {$remove_tags} {regsub -all {<[^>]+>} $text "" text}
-    regsub -all {(\\|\;|\,)} $text {\\\1} text
+    if {$remove_tags} {regsub -all -- {<[^>]+>} $text "" text}
+    regsub -all -- {(\\|\;|\,)} $text {\\\1} text
     regsub -all \n $text {\\n} text
     return $text
   }
   ical ad_proc ical_to_text {text} {
     Transform the escaped ical text format to plain text
   } {
-    regsub -all {\\(n|N)} $text \n text
-    regsub -all {\\(\\|\;|\,)} $text {\1} text
+    regsub -all -- {\\(n|N)} $text \n text
+    regsub -all -- {\\(\\|\;|\,)} $text {\1} text
     return $text
   }