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.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 \