Index: openacs-4/packages/acs-lang/www/locale-set.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-lang/www/Attic/locale-set.tcl,v
diff -u -r1.1 -r1.2
--- openacs-4/packages/acs-lang/www/locale-set.tcl	20 Apr 2001 20:51:08 -0000	1.1
+++ openacs-4/packages/acs-lang/www/locale-set.tcl	7 Oct 2002 14:32:47 -0000	1.2
@@ -8,15 +8,11 @@
     @cvs-id $Id$
 } {
     locale
-    { redirect_url {} }
+    {redirect_url {[ns_set iget [ns_conn headers] referer]}}
 }
 
 # set the locale property
 ad_locale_set locale $locale
 
-if [empty_string_p $redirect_url] {
-    set redirect_url  [ns_set iget [ns_conn headers] referer]
-}
-
 ad_returnredirect $redirect_url