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 -r1.242 -r1.243
--- openacs-4/packages/xowiki/tcl/package-procs.tcl	30 Mar 2011 07:54:03 -0000	1.242
+++ openacs-4/packages/xowiki/tcl/package-procs.tcl	11 May 2011 08:35:49 -0000	1.243
@@ -76,7 +76,7 @@
   #
   Package instproc normalize_name {string} {
     set string [string trim $string]
-    regsub -all {[\#/]} $string _ string
+    regsub -all {[\#/\\]} $string _ string
     # if subst_blank_in_name is turned on, turn spaces into _
     if {[my get_parameter subst_blank_in_name 1]} {
       regsub -all { +} $string "_" string