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 -N -r1.19.2.17 -r1.19.2.18
--- openacs-4/packages/xowiki/tcl/menu-procs.tcl	1 Apr 2022 13:47:51 -0000	1.19.2.17
+++ openacs-4/packages/xowiki/tcl/menu-procs.tcl	13 Jun 2022 16:45:52 -0000	1.19.2.18
@@ -499,7 +499,9 @@
           if {$kind eq "form_link"} {
             ad_log warning "$me, name 'form_link' is deprecated, use 'entry' instead"
           }
-          if {[dict exists $properties -form]} {
+          if {[dict exists $properties -link]} {
+            set link [dict get $properties -link]
+          } elseif {[dict exists $properties -form]} {
             set q [expr {[dict exists $properties -query] ? "-query [dict get $properties -query]" : ""}]
             dict with bind_vars {
               set link [::$package_id make_form_link \