Index: openacs-4/packages/xowiki/tcl/xowiki-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/xowiki/tcl/xowiki-procs.tcl,v
diff -u -r1.41 -r1.42
--- openacs-4/packages/xowiki/tcl/xowiki-procs.tcl	22 Jun 2006 06:09:22 -0000	1.41
+++ openacs-4/packages/xowiki/tcl/xowiki-procs.tcl	23 Jun 2006 08:18:23 -0000	1.42
@@ -705,6 +705,12 @@
     set stripped_name [string trim $stripped_name]
     if {$lang eq ""} {set lang [my lang]}
     if {$label eq $arg} {set label $stripped_name}
+
+    # if subst_blank_in_name is turned on, turn spaces into _
+    if {[$parent_id get_payload subst_blank_in_name] == 1} {
+      regsub -all { } $stripped_name "_" stripped_name
+    }
+
     #my log "--LINK lang=$lang type=$link_type stripped_name=$stripped_name"
     Link create [self]::link \
 	-type $link_type -name $lang:$stripped_name -lang $lang \
Index: openacs-4/packages/xowiki/www/pages/index.vuh
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/xowiki/www/pages/Attic/index.vuh,v
diff -u -r1.9 -r1.10
--- openacs-4/packages/xowiki/www/pages/index.vuh	22 Jun 2006 06:09:23 -0000	1.9
+++ openacs-4/packages/xowiki/www/pages/index.vuh	23 Jun 2006 08:18:24 -0000	1.10
@@ -34,6 +34,7 @@
       set item_id [::Generic::CrItem lookup -name $name -parent_id $folder_id]
     }
     if {$item_id == 0} {
+      # if subst_blank_in_name is turned on, try to resolve based on _
       set subst_blank_in_name [$folder_id get_payload subst_blank_in_name]
       if {$subst_blank_in_name == 1} {
 	regsub -all { } $name "_" name