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.29 -r1.30
--- openacs-4/packages/dotlrn/www/admin/class-instance-new.tcl	15 May 2007 20:14:25 -0000	1.29
+++ openacs-4/packages/dotlrn/www/admin/class-instance-new.tcl	28 Sep 2007 13:07:32 -0000	1.30
@@ -114,7 +114,7 @@
     db_dml update_community_info {}
 
     if {[empty_string_p $referer]} {
-        set referer "admin/class?[export_url_vars class_key]"
+        set referer "[dotlrn::get_admin_url]/class?[export_url_vars class_key]"
     }
 
     if {${add_instructor}} {