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.230 -r1.231
--- openacs-4/packages/xowiki/tcl/package-procs.tcl	12 Jul 2010 15:13:19 -0000	1.230
+++ openacs-4/packages/xowiki/tcl/package-procs.tcl	13 Jul 2010 11:22:23 -0000	1.231
@@ -1306,7 +1306,7 @@
                       -parent_id $search_parent_id \
                       $link]
 
-    #my log  "[my instance_name] (root [my folder_id]) item-ref for '$link' search parent $search_parent_id, parent $parent_id, returns\n[array get {}]"
+    #my msg  "[my instance_name] (root [my folder_id]) item-ref for '$link' search parent $search_parent_id, parent $parent_id, returns\n[array get {}]"
     if {$(item_id)} {
       set page [::xo::db::CrClass get_instance_from_db -item_id $(item_id)]
       if {[$page package_id] ne [my id] || [$page parent_id] != $(parent_id)} {
@@ -1939,21 +1939,22 @@
       set name [my query_parameter name]
     }
 
-    if {$item_id eq "" && $name ne ""} {
-      array set "" [my item_info_from_url $name]
+    if {$item_id eq ""} {
+      array set "" [my item_info_from_url -with_package_prefix false $name]
       if {$(item_id) == 0} {
         ns_log notice "lookup of '$name' with parent_id $parent_id failed"
       } else {
 	set parent_id $(parent_id)
 	set item_id $(item_id)
 	set name $(name)
       }
-    } elseif {$item_id ne ""} {
+    } else {
+      set name [::xo::db::CrClass get_name -item_id $item_id]
       if {![info exists parent_id]} {
         set parent_id [::xo::db::CrClass get_parent_id -item_id $item_id]
       }
     }
-    #my msg item_id=$item_id
+    #my msg item_id=$item_id/name=$name
 
     if {$item_id ne ""} {
       my log "--D trying to delete $item_id $name"