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.9 -r1.10
--- openacs-4/packages/acs-templating/tcl/spellcheck-init.tcl	1 Nov 2003 08:45:37 -0000	1.9
+++ openacs-4/packages/acs-templating/tcl/spellcheck-init.tcl	29 Jun 2004 10:17:45 -0000	1.10
@@ -71,7 +71,11 @@
     foreach dict $dicts {
 	if { [string length $dict] == 2 } {
 	    # We have a lang (e.g., en)
-	    lappend wanted_dicts [list [string totitle [lang::util::nls_language_from_language $dict]] $dict]
+	    # Some 2-char aspell dicts (languages) are missing in ad_locales so we
+	    # need to catch those cases and use the language as the pretty name, ugh ...
+	    if { [catch { lappend wanted_dicts [list [string totitle [lang::util::nls_language_from_language $dict]] $dict] }] } {
+	        lappend wanted_dicts [list "Locale $dict" $dict]
+	    }
 	    set last_dict $dict
 	} elseif { $dialects_p && [string length $dict] == 5 && [regexp _ $dict] } {
 	    # We have a locale (e.g., en_US)