Index: openacs-4/packages/simulation/lib/template-clone.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/simulation/lib/template-clone.tcl,v
diff -u -r1.1 -r1.1.2.1
--- openacs-4/packages/simulation/lib/template-clone.tcl	23 Jan 2004 14:31:36 -0000	1.1
+++ openacs-4/packages/simulation/lib/template-clone.tcl	30 Nov 2004 21:47:53 -0000	1.1.2.1
@@ -1,9 +1,11 @@
 
 simulation::template::get -workflow_id $workflow_id -array simulation
 
-set pretty_name "Clone of $simulation(pretty_name)"
+set pretty_name "Copy of $simulation(pretty_name)"
 
-ad_form -name clone -export { workflow_id } -edit_buttons [list [list "Clone" ok]] -form {
+ad_form -name clone \
+    -cancel_url [util_current_location][util_current_directory] \
+    -export { workflow_id } -edit_buttons [list [list "Clone" ok]] -form {
     {pretty_name:text
         {label "Name"}
         {html {size 50}}