Index: openacs-4/packages/wp-slim/www/add-edit-presentation.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/wp-slim/www/add-edit-presentation.tcl,v
diff -u -r1.2 -r1.3
--- openacs-4/packages/wp-slim/www/add-edit-presentation.tcl	1 Mar 2005 00:01:46 -0000	1.2
+++ openacs-4/packages/wp-slim/www/add-edit-presentation.tcl	12 Sep 2013 20:47:19 -0000	1.3
@@ -90,7 +90,7 @@
     }
 } -edit_data {
     set title "[_ wp-slim.Edit_Presentation]"
-    set context [list [list "presentation-top?[export_url_vars pres_item_id]"  "$pres_title"] "[_ wp-slim.Edit_Presentation]"]
+    set context [list [list "presentation-top?[export_vars -url {pres_item_id}]"  "$pres_title"] "[_ wp-slim.Edit_Presentation]"]
     db_exec_plsql update_wp_presentation { *SQL* }
     if {$public_p == "t"} {
 	db_exec_plsql grant_public_read { *SQL* }
@@ -111,9 +111,9 @@
     set audience [ad_quotehtml $audience] 
     set background [ad_quotehtml $background]
     set title "[_ wp-slim.Edit_Presentation]"
-    set context [list [list "presentation-top?[export_url_vars pres_item_id]"  "$pres_title"] "[_ wp-slim.Edit_Presentation]"]
+    set context [list [list "presentation-top?[export_vars -url {pres_item_id}]"  "$pres_title"] "[_ wp-slim.Edit_Presentation]"]
 } -after_submit {
-    ad_returnredirect "presentation-top?[export_url_vars pres_item_id]"
+    ad_returnredirect "presentation-top?[export_vars -url {pres_item_id}]"
     ad_script_abort
 }