Index: openacs-4/packages/xowiki/tcl/form-field-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/xowiki/tcl/form-field-procs.tcl,v
diff -u -N -r1.193 -r1.194
--- openacs-4/packages/xowiki/tcl/form-field-procs.tcl	23 May 2011 11:48:45 -0000	1.193
+++ openacs-4/packages/xowiki/tcl/form-field-procs.tcl	26 Aug 2011 16:10:19 -0000	1.194
@@ -2002,13 +2002,23 @@
       array set wc [::xowiki::FormPage filter_expression $where &&]
       #my msg "where '$where' => wc=[array get wc]"
     }
-    set options [list]    
+
+    set from_package_ids {}
+    set package_path [::$package_id package_path]
+    if {[llength $package_path] > 0} {
+      foreach p $package_path {
+	lappend from_package_ids [$p id]
+      }
+    }
     set items [::xowiki::FormPage get_form_entries \
                    -base_item_ids $form_object_item_ids \
                    -form_fields [list] \
                    -publish_status ready \
                    -h_where [array get wc] \
-                   -package_id $package_id]
+                   -package_id $package_id \
+		   -from_package_ids $from_package_ids]
+
+    set options [list]
     foreach i [$items children] {
       #
       # If the form_page has a different package_id, prepend the