Index: openacs-4/packages/acs-tcl/tcl/defs-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-tcl/tcl/defs-procs.tcl,v
diff -u -N -r1.81.2.15 -r1.81.2.16
--- openacs-4/packages/acs-tcl/tcl/defs-procs.tcl	8 Jan 2022 15:37:54 -0000	1.81.2.15
+++ openacs-4/packages/acs-tcl/tcl/defs-procs.tcl	14 Jan 2022 19:33:00 -0000	1.81.2.16
@@ -767,7 +767,7 @@
     @see ad_progress_bar_begin
 } {
     util_user_message -message $message_after_redirect
-    ns_write "<script type='text/javascript' nonce='[security::csp::nonce]'>window.location='$url';</script>"
+    ns_write "<script type='text/javascript' nonce='[security::csp::nonce]'>window.location='[ns_quotehtml $url]';</script>"
     ns_conn close
 }