Index: openacs-4/packages/acs-tcl/tcl/utilities-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-tcl/tcl/utilities-procs.tcl,v
diff -u -N -r1.77 -r1.78
--- openacs-4/packages/acs-tcl/tcl/utilities-procs.tcl	13 Jan 2005 13:55:56 -0000	1.77
+++ openacs-4/packages/acs-tcl/tcl/utilities-procs.tcl	26 Jan 2005 22:45:42 -0000	1.78
@@ -2600,7 +2600,11 @@
     @see util_user_message
     @see ad_script_abort
 } {
-    util_user_message -message $message
+    if { [string is false $html_p] } {
+      	util_user_message -message $message
+    } else {
+      	util_user_message -message $message -html
+    }
 
     if { [util_complete_url_p $target_url] } {
         # http://myserver.com/foo/bar.tcl style - just pass to ns_returnredirect
@@ -2629,13 +2633,7 @@
         util_ReturnMetaRefresh $url 
     } else {
         ns_returnredirect $url
-    }
-    
-    if { [string is false $html_p] } {
-	util_user_message -message $message
-    } else {
-	util_user_message -message $message -html
-    }
+    }    
 }
 
 ad_proc -public util_user_message {