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.241 -r1.242
--- openacs-4/packages/xowiki/tcl/package-procs.tcl	14 Feb 2011 11:16:03 -0000	1.241
+++ openacs-4/packages/xowiki/tcl/package-procs.tcl	30 Mar 2011 07:54:03 -0000	1.242
@@ -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