Index: openacs-4/packages/acs-templating/tcl/data-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-templating/tcl/data-procs.tcl,v
diff -u -r1.23.2.17 -r1.23.2.18
--- openacs-4/packages/acs-templating/tcl/data-procs.tcl	23 Mar 2023 15:13:48 -0000	1.23.2.17
+++ openacs-4/packages/acs-templating/tcl/data-procs.tcl	23 Mar 2023 15:22:20 -0000	1.23.2.18
@@ -245,10 +245,15 @@
 
     @author Guenter Ernst <guenter.ernst@wu.ac.at>
 } {
-    upvar 2 $message_ref message $value_ref value
+    upvar 2 $message_ref message $value_ref value element element
 
     if { [ad_looks_like_html_p $value] } {
-        set message "No markup allowed"
+        if {[info exists element(label)]} {
+            set name $element(label)
+        } else {
+            set name $element(name)
+        }
+        set message [_ acs-tcl.lt_Value_for_name_contai [list name '$name']]
         return 0
     } else {
         return 1