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.19 -r1.19.2.20
--- openacs-4/packages/xowiki/tcl/menu-procs.tcl	20 Aug 2022 15:44:00 -0000	1.19.2.19
+++ openacs-4/packages/xowiki/tcl/menu-procs.tcl	22 Aug 2022 17:06:40 -0000	1.19.2.20
@@ -497,7 +497,7 @@
         entry {
           # sample entry: entry -name New.YouTubeLink -label YouTube -form en:YouTube.form
           if {$kind eq "form_link"} {
-            ad_log warning "$me, name 'form_link' is deprecated, use 'entry' instead"
+            ad_log_deprecated menu-entry $link entry
           }
           if {[dict exists $properties -link]} {
             set link [dict get $properties -link]