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 -r1.41 -r1.42
--- openacs-4/packages/acs-tcl/tcl/defs-procs.tcl	26 Jan 2004 15:39:46 -0000	1.41
+++ openacs-4/packages/acs-tcl/tcl/defs-procs.tcl	19 Feb 2004 21:16:34 -0000	1.42
@@ -843,11 +843,13 @@
 
 ad_proc -public ad_progress_bar_end {
     {-url:required}
+    {-message_after_redirect ""}
 } {
     Ends the progress bar by causing the browser to redirect to a new URL.
 
     @see ad_progress_bar_begin
 } { 
+    util_user_message -message $message_after_redirect
     ns_write "<script language=\"javascript\">window.location='$url';</script>"
     ns_conn close
 }