Index: openacs-4/packages/dotlrn/www/admin/class-instance-new.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/dotlrn/www/admin/class-instance-new.tcl,v
diff -u -r1.33 -r1.34
--- openacs-4/packages/dotlrn/www/admin/class-instance-new.tcl	1 Nov 2013 21:08:33 -0000	1.33
+++ openacs-4/packages/dotlrn/www/admin/class-instance-new.tcl	28 Jun 2015 11:58:50 -0000	1.34
@@ -114,12 +114,12 @@
     db_dml update_community_info {}
 
     if {$referer eq ""} {
-        set referer "[dotlrn::get_admin_url]/class?[export_vars -url {class_key}]"
+        set referer [export_vars -base [dotlrn::get_admin_url]/class {class_key}]
     }
 
     if {${add_instructor}} {
         set community_id $class_instance_id 
-        ad_returnredirect "add-instructor?[export_vars -url {community_id referer}]"
+        ad_returnredirect [export_vars -base add-instructor {community_id referer}]
         ad_script_abort
     }