Index: openacs-4/packages/acs-tcl/tcl/tcl-documentation-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-tcl/tcl/tcl-documentation-procs.tcl,v
diff -u -r1.61.2.47 -r1.61.2.48
--- openacs-4/packages/acs-tcl/tcl/tcl-documentation-procs.tcl	27 Aug 2024 11:29:06 -0000	1.61.2.47
+++ openacs-4/packages/acs-tcl/tcl/tcl-documentation-procs.tcl	27 Aug 2024 12:12:55 -0000	1.61.2.48
@@ -2001,7 +2001,7 @@
     # Reject the NUL character
     #
     if {[string first \u00 $value] != -1} {
-        ns_log notice "--- found NUL"
+        ns_log notice "invalid input for 'html' filter: passed-in value contains NUL character"
         ad_complain [_ acs-tcl.lt_name_contains_invalid]
         return 0
     }
@@ -2242,7 +2242,7 @@
     if { $op eq "min" } {
         if { $actual_length < $nr } {
             set binding [list name $name actual_length $actual_length min_length $nr]
-            ad_complain [_ acs-tcl.lt_name_is_too_short__Pl_1]
+            ad_complain [_ acs-tcl.lt_name_is_too_short__Pl_1 $binding]
             return 0
         }
     } else {