Index: openacs-4/packages/acs-tcl/tcl/request-processor-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-tcl/tcl/request-processor-procs.tcl,v
diff -u -r1.153.2.58 -r1.153.2.59
--- openacs-4/packages/acs-tcl/tcl/request-processor-procs.tcl	19 May 2023 12:13:19 -0000	1.153.2.58
+++ openacs-4/packages/acs-tcl/tcl/request-processor-procs.tcl	24 Jul 2023 12:59:24 -0000	1.153.2.59
@@ -716,7 +716,7 @@
         if { $host_header ne "" && $host_no_port ne $desired_host_no_port  } {
             set query [ns_getform]
             if { $query ne "" } {
-                set query ?[export_vars -url -entire_form]
+                set query ?[export_vars -entire_form]
             }
             ad_returnredirect -allow_complete_url "[ns_conn location][ns_conn url]$query"
             return filter_return
@@ -898,7 +898,7 @@
         #
         set message $::errorInfo
     }
-    set error_url [ad_url][ad_conn url]?[export_vars -url -entire_form]
+    set error_url [ad_url][ad_conn url]?[export_vars -entire_form]
     set error_file [ad_conn file]
     set prev_url [util::get_referrer -trusted]
     set feedback_id [db_nextval acs_object_id_seq]