Index: openacs-4/packages/xowiki/tcl/menu-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/xowiki/tcl/menu-procs.tcl,v
diff -u -r1.19.2.1 -r1.19.2.2
--- openacs-4/packages/xowiki/tcl/menu-procs.tcl	8 May 2019 14:33:40 -0000	1.19.2.1
+++ openacs-4/packages/xowiki/tcl/menu-procs.tcl	24 Jun 2019 11:27:24 -0000	1.19.2.2
@@ -297,10 +297,12 @@
             ad_log warning "$me, name 'form_link' is deprecated, use 'entry' instead"
           }
           if {[dict exists $properties -form]} {
+            set q [expr {[dict exists $properties -query] ? "-query [dict get $properties -query]" : ""}]
             set link [::$package_id make_form_link \
                           -form [dict get $properties -form] \
                           -parent_id $parent_id \
-                          -nls_language $nls_language -return_url $return_url]
+                          -nls_language $nls_language \
+                          -return_url $return_url {*}$q]
           } elseif {[dict exists $properties -object_type]} {
             set link [::$package_id make_link \
                           $package_id edit-new \