Index: openacs-4/contrib/packages/vocabulary/www/locale.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/contrib/packages/vocabulary/www/locale.tcl,v
diff -u -r1.1 -r1.2
--- openacs-4/contrib/packages/vocabulary/www/locale.tcl	23 Feb 2004 23:00:09 -0000	1.1
+++ openacs-4/contrib/packages/vocabulary/www/locale.tcl	26 Feb 2005 16:00:09 -0000	1.2
@@ -40,11 +40,11 @@
     } -validate {
         # just in case
         { locale_a
-            { [catch ad_locale_get_label $locale_a] }
+            { [catch lang::util::get_label $locale_a] }
             "$locale_a is not a valid locale"
         }
         { locale_b
-            { [catch ad_locale_get_label $locale_b] }
+            { [catch lang::util::get_label $locale_b] }
             "$locale_b is not a valid locale"
         }
     } -on_submit {