Index: openacs-4/packages/xowiki/tcl/package-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/xowiki/tcl/package-procs.tcl,v
diff -u -N -r1.332.2.93 -r1.332.2.94
--- openacs-4/packages/xowiki/tcl/package-procs.tcl	15 Nov 2021 17:23:28 -0000	1.332.2.93
+++ openacs-4/packages/xowiki/tcl/package-procs.tcl	22 Nov 2021 12:20:56 -0000	1.332.2.94
@@ -281,6 +281,9 @@
       ad_log warning "normalize_name receives name '$suffix' containing a colon. A missing -with_prefix?"
       xo::show_stack
     }
+    if {[regexp {^[./]+$} $suffix]} {
+      set suffix [string repeat _ [string length $suffix]]
+    }
     regsub -all -- {[\#/\\:]} $suffix _ suffix
     # if subst_blank_in_name is turned on, turn spaces into _
     if {[:get_parameter subst_blank_in_name 1]} {
@@ -799,7 +802,7 @@
         }
       }
     }
-    
+
     if {$value eq ""} {
       set value [next $attribute $default]
     }