Index: openacs-4/packages/acs-lang/www/admin/test/catalog-test.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-lang/www/admin/test/catalog-test.tcl,v
diff -u -r1.1 -r1.2
--- openacs-4/packages/acs-lang/www/admin/test/catalog-test.tcl	7 Oct 2002 14:32:49 -0000	1.1
+++ openacs-4/packages/acs-lang/www/admin/test/catalog-test.tcl	26 Feb 2005 16:00:10 -0000	1.2
@@ -20,10 +20,10 @@
 set german  [_ de test.German]
 
 
-set locale [ad_locale user locale]
+set locale [lang::user::locale]
 #set locale "ja_JP"
 
-set language [ad_locale user language]
+set language [lang::user::language]
 #set language ja
 
 set language_name [ad_locale_language_name $language]