Index: openacs-4/packages/acs-lang/tcl/lang-catalog-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-lang/tcl/lang-catalog-procs.tcl,v
diff -u -r1.28 -r1.29
--- openacs-4/packages/acs-lang/tcl/lang-catalog-procs.tcl	22 Sep 2003 14:37:18 -0000	1.28
+++ openacs-4/packages/acs-lang/tcl/lang-catalog-procs.tcl	30 Sep 2003 15:32:35 -0000	1.29
@@ -694,7 +694,7 @@
     set catalog_file_list [list]
     foreach locale_list $all_locales_list {        
         set locale [lindex $locale_list 0]
-        set charset [lindex $locale_list 1]
+        set mime_charset [lindex $locale_list 1]
 
         # If we are only processing certain locales and this is not one of them - continue
         if { ![empty_string_p $restrict_to_locale] && ![string equal $restrict_to_locale $locale]} {
@@ -706,7 +706,7 @@
             continue
         }
 
-        set charset [default_charset_if_unsupported $charset]
+        set charset [default_charset_if_unsupported $mime_charset]
         
         set file_path [get_catalog_file_path \
                 -package_key $package_key \