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.250 -r1.251
--- openacs-4/packages/xowiki/tcl/package-procs.tcl	6 Nov 2011 03:13:39 -0000	1.250
+++ openacs-4/packages/xowiki/tcl/package-procs.tcl	25 Nov 2011 09:59:58 -0000	1.251
@@ -1105,7 +1105,13 @@
     set name [string trimright $name \0]
     set (stripped_name) [string trimright $(stripped_name) \0]
 
-    if {$element eq "." || $element eq ".\0"} {
+    if {$element eq "" || $element eq "\0"} {
+      set folder_id [my folder_id]
+      array set "" [my item_info_from_id $folder_id]
+      set item_id $folder_id
+      set parent_id $(parent_id)
+      #my msg "SETTING item_id $item_id parent_id $parent_id // [array get {}]"
+    } elseif {$element eq "." || $element eq ".\0"} {
       array set "" [my item_info_from_id $parent_id]
       set item_id $parent_id
       set parent_id $(parent_id)