Index: openacs-4/packages/acs-lang/www/admin/test/test.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-lang/www/admin/test/test.tcl,v
diff -u -r1.1 -r1.2
--- openacs-4/packages/acs-lang/www/admin/test/test.tcl	7 Oct 2002 14:32:49 -0000	1.1
+++ openacs-4/packages/acs-lang/www/admin/test/test.tcl	26 Feb 2005 16:00:10 -0000	1.2
@@ -19,7 +19,7 @@
 set spanish [_ es test.Spanish]
 set german [_ de test.German]
 
-#set lang [ad_locale user language]
+#set lang [lang::user::language]
 set lang [ad_get_client_property lang locale]
 if {[empty_string_p $lang]} {
     set lang "en"