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}]
 }
 
 #