Index: openacs-4/packages/dotlrn/www/admin/club-new.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/dotlrn/www/admin/club-new.tcl,v
diff -u -r1.3 -r1.4
--- openacs-4/packages/dotlrn/www/admin/club-new.tcl	11 Dec 2001 00:45:16 -0000	1.3
+++ openacs-4/packages/dotlrn/www/admin/club-new.tcl	10 Jan 2002 19:30:18 -0000	1.4
@@ -5,7 +5,7 @@
     @creation-date 2001-12-03
     @version $Id$
 } -query {
-    {referer ""}
+    {referer "clubs"}
 } -properties {
     context_bar:onevalue
 }
@@ -32,10 +32,6 @@
 
     set key [dotlrn_club::new -description $description -key $club_key -pretty_name $name -join_policy $join_policy]
 
-    if {[empty_string_p $referer]} {
-        set referer "clubs"
-    }
-
     ad_returnredirect $referer
     ad_script_abort
 }