Index: openacs-4/packages/acs-templating/tcl/list-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-templating/tcl/list-procs.tcl,v
diff -u -r1.94.2.21 -r1.94.2.22
--- openacs-4/packages/acs-templating/tcl/list-procs.tcl	5 Sep 2022 15:07:20 -0000	1.94.2.21
+++ openacs-4/packages/acs-templating/tcl/list-procs.tcl	29 Mar 2023 12:38:59 -0000	1.94.2.22
@@ -3280,8 +3280,7 @@
         # setup little Xs to click to clear one field
         # pass the name of the field in the clear_one variable
 
-        set __form [ns_getform]
-        set clear_one [ns_set get $__form clear_one]
+        set clear_one [ns_queryget clear_one]
 
         if {$clear_one ne ""} {
             #