Index: openacs-4/contrib/packages/simulation/www/simbuild/task-delete.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/contrib/packages/simulation/www/simbuild/Attic/task-delete.tcl,v
diff -u -r1.2 -r1.3
--- openacs-4/contrib/packages/simulation/www/simbuild/task-delete.tcl	2 Dec 2003 17:24:32 -0000	1.2
+++ openacs-4/contrib/packages/simulation/www/simbuild/task-delete.tcl	16 Dec 2003 18:34:00 -0000	1.3
@@ -3,10 +3,14 @@
 
 } {
     action_id:integer
-    {return_url "."}
+    {return_url ""}
 }
 
-permission::require_write_permission -object_id $action_id
-workflow::action::fsm::delete -action_id $action_id
+set workflow_id [workflow::action::get_element -action_id $action_id -element workflow_id]
+permission::require_write_permission -object_id $workflow_id
+simulation::action::edit -operation "delete" -action_id $action_id
 
-ad_returnredirect $return_url
\ No newline at end of file
+if { [empty_string_p $return_url] } {
+    set return_url [export_vars -base template-edit { workflow_id }]
+}
+ad_returnredirect $return_url