Index: openacs-4/packages/dotlrn-admin/www/admin/term.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/dotlrn-admin/www/admin/term.tcl,v
diff -u -r1.2 -r1.3
--- openacs-4/packages/dotlrn-admin/www/admin/term.tcl	8 Aug 2006 21:26:31 -0000	1.2
+++ openacs-4/packages/dotlrn-admin/www/admin/term.tcl	28 Jun 2015 12:09:34 -0000	1.3
@@ -85,19 +85,19 @@
     form get_values term_form term_id department_key
 
     if {$term_id != -1} {
-        ad_returnredirect "term?[export_vars {term_id department_key}]"
+        ad_returnredirect [export_vars -base term {term_id department_key}]
     }
 }
 
-if {![exists_and_not_null referer]} {
+if {(![info exists referer] || $referer eq "")} {
     set referer "terms"
 }
 
 set query "select_classes"
 if {$term_id == -1} {
     set query "select_all_classes"
 }
-if {![empty_string_p $department_key]} {
+if {$department_key ne ""} {
     append query "_by_department"
 }