Index: openacs-4/packages/xowiki/tcl/xowiki-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/xowiki/tcl/xowiki-procs.tcl,v
diff -u -N -r1.542.2.115 -r1.542.2.116
--- openacs-4/packages/xowiki/tcl/xowiki-procs.tcl	19 Oct 2021 09:42:06 -0000	1.542.2.115
+++ openacs-4/packages/xowiki/tcl/xowiki-procs.tcl	19 Oct 2021 17:31:24 -0000	1.542.2.116
@@ -1280,7 +1280,14 @@
     ::xo::dc dml delete_tags \
         "delete from xowiki_tags where item_id = :item_id and user_id = :user_id"
 
-    foreach tag [split $tags " ,;"] {
+    #
+    # Map funny characters in tags to white-space. Tags are just
+    # single words, no quotes are allowed. The resulting tags must be
+    # compatible with "Package->validate_tag".
+    #
+    regsub -all {[^\w.-]+} $tags " " tags
+
+    foreach tag [split $tags " "] {
       if {$tag ne ""} {
         ::xo::dc dml insert_tag \
             "insert into xowiki_tags (item_id,package_id, user_id, tag, time) \