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.104 -r1.105
--- openacs-4/packages/xowiki/tcl/package-procs.tcl	14 Dec 2007 10:24:51 -0000	1.104
+++ openacs-4/packages/xowiki/tcl/package-procs.tcl	15 Dec 2007 18:56:30 -0000	1.105
@@ -59,6 +59,7 @@
   #
   Package instproc normalize_name {string} {
     set string [string trim $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] != 0} {
       regsub -all { +} $string "_" string