Index: openacs-4/contrib/packages/simulation/www/simplay/case-delete.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/contrib/packages/simulation/www/simplay/Attic/case-delete.tcl,v
diff -u -r1.1 -r1.2
--- openacs-4/contrib/packages/simulation/www/simplay/case-delete.tcl	30 Jan 2004 09:44:19 -0000	1.1
+++ openacs-4/contrib/packages/simulation/www/simplay/case-delete.tcl	2 Feb 2004 12:57:02 -0000	1.2
@@ -13,7 +13,8 @@
 
 if { [template::util::is_true $confirm_p] } {
     workflow::case::delete -case_id $case_id
-    ad_returnredirect -message "Case \"$case(label)\" has been deleted." -abort "."
+    ad_returnredirect -message "Case \"$case(label)\" has been deleted." "."
+    ad_script_abort
 }
 
 set page_title "Delete case \"$case(label)\""