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.200 -r1.201 --- openacs-4/packages/xowiki/tcl/package-procs.tcl 23 Apr 2010 11:29:08 -0000 1.200 +++ openacs-4/packages/xowiki/tcl/package-procs.tcl 23 Apr 2010 18:59:59 -0000 1.201 @@ -759,7 +759,8 @@ foreach package [my package_path] { set page [$package resolve_page -simple $simple -lang $lang $object method] if {$page ne ""} { - return $page + $page set_resolve_context -package_id [my id] -parent_id [my folder_id] + return $page } } } @@ -1067,7 +1068,7 @@ if {$allow_cross_package_item_refs} { set referenced_package_id [my resolve_package_path $link rest_link] if {$referenced_package_id != 0 && $referenced_package_id != [my id]} { - #my log "get_page_from_item_ref rekursive $rest_link in $referenced_package_id" + #my log "get_page_from_item_ref recursive $rest_link in $referenced_package_id" return [$referenced_package_id get_page_from_item_ref \ -allow_cross_package_item_refs false \ -use_package_path $use_package_path \