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 -N -r1.246 -r1.247
--- openacs-4/packages/xowiki/tcl/package-procs.tcl	27 May 2011 13:17:01 -0000	1.246
+++ openacs-4/packages/xowiki/tcl/package-procs.tcl	14 Jul 2011 17:59:56 -0000	1.247
@@ -1015,8 +1015,10 @@
     # (we can handle only one unknown at a time).
     set nr_elements [llength $elements]
     set n 0
+    set ref_ids {}
     foreach element $elements {
       set (last_parent_id) $parent_id
+      lappend ref_ids $parent_id
       array set "" [my simple_item_ref \
                         -normalize_name $normalize_name \
                         -use_package_path $use_package_path \
@@ -1036,7 +1038,7 @@
 
     return [list link $link link_type $(link_type) form $(form) \
                 prefix $(prefix) stripped_name $(stripped_name) \
-                item_id $(item_id) parent_id $(parent_id)]
+                item_id $(item_id) parent_id $(parent_id) ref_ids $ref_ids]
   }
 
   Package instproc simple_item_ref {