Index: openacs-4/packages/acs-templating/tcl/spellcheck-init.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-templating/tcl/spellcheck-init.tcl,v
diff -u -r1.10 -r1.11
--- openacs-4/packages/acs-templating/tcl/spellcheck-init.tcl	29 Jun 2004 10:17:45 -0000	1.10
+++ openacs-4/packages/acs-templating/tcl/spellcheck-init.tcl	26 Feb 2005 16:00:10 -0000	1.11
@@ -85,7 +85,7 @@
 	    }
 	    # Some five-char aspell dicts (locales) are missing in ad_locales so we
 	    # need to catch those cases and use the locale as the pretty name, ugh ...
-	    if { [catch { lappend wanted_dicts [list [string totitle [ad_locale_get_label $dict]] $dict] }] } {
+	    if { [catch { lappend wanted_dicts [list [string totitle [lang::util::get_label $dict]] $dict] }] } {
 		lappend wanted_dicts [list "Locale $dict" $dict]
 	    }
 	}