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 ""} {
             #
Index: openacs-4/packages/acs-tcl/tcl/form-processing-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-tcl/tcl/form-processing-procs.tcl,v
diff -u -r1.87.2.14 -r1.87.2.15
--- openacs-4/packages/acs-tcl/tcl/form-processing-procs.tcl	15 Jul 2022 11:05:53 -0000	1.87.2.14
+++ openacs-4/packages/acs-tcl/tcl/form-processing-procs.tcl	29 Mar 2023 12:44:09 -0000	1.87.2.15
@@ -1361,11 +1361,7 @@
 
     @param key the name of the key element. In the above example: <code>ad_form_new_p -key item_id</code>
 } {
-
-    set form [ns_getform]
-
-    return [expr {$form eq "" || [ns_set find $form $key] == -1 || [ns_set get $form __new_p] == 1 }]
-
+    return [expr {![ns_queryexists $key] || [ns_queryget __new_p] == 1}]
 }
 
 #