Index: openacs-4/packages/acs-subsite/www/shared/confirm.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-subsite/www/shared/confirm.tcl,v
diff -u -N -r1.2 -r1.2.2.1
--- openacs-4/packages/acs-subsite/www/shared/confirm.tcl	7 Aug 2017 23:47:59 -0000	1.2
+++ openacs-4/packages/acs-subsite/www/shared/confirm.tcl	6 Sep 2022 09:44:03 -0000	1.2.2.1
@@ -32,8 +32,8 @@
 set no_path [lindex $no_list 0]
 set no_args_set [ns_parsequery [lindex $no_list 1]]
 
-set export_vars_yes [export_ns_set_vars form {} $yes_args_set]
-set export_vars_no [export_ns_set_vars form {} $no_args_set]
+set export_vars_yes [export_vars -form -set $yes_args_set]
+set export_vars_no [export_vars -form -set $no_args_set]
 
 ad_return_template