Index: openacs-4/packages/xowiki/tcl/xowiki-form-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/xowiki/tcl/xowiki-form-procs.tcl,v
diff -u -N -r1.6 -r1.7
--- openacs-4/packages/xowiki/tcl/xowiki-form-procs.tcl	27 May 2006 12:05:16 -0000	1.6
+++ openacs-4/packages/xowiki/tcl/xowiki-form-procs.tcl	16 Jun 2006 16:31:01 -0000	1.7
@@ -113,6 +113,10 @@
       if {$nls_language eq ""} {set nls_language [lang::conn::locale]}
       set name [string range $nls_language 0 1]:$name
     }
+    set subst_blank_in_name [$folder_id get_payload subst_blank_in_name]
+    if {$subst_blank_in_name == 1} {
+      regsub -all " " $name "_" name
+    }
     if {[ns_set get [ns_getform] __new_p] 
 	|| [ns_set get [ns_getform] __object_name] ne $name
       } {