Index: openacs-4/packages/accounts-ledger/info/convert-SL-num2text.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/accounts-ledger/info/convert-SL-num2text.tcl,v
diff -u -r1.1 -r1.2
--- openacs-4/packages/accounts-ledger/info/convert-SL-num2text.tcl	11 Nov 2005 05:32:30 -0000	1.1
+++ openacs-4/packages/accounts-ledger/info/convert-SL-num2text.tcl	24 Jun 2006 08:25:10 -0000	1.2
@@ -37,7 +37,7 @@
 
       set file_exists [lsearch $oacs_xml_file_list "*${locale}*"]
       if { $file_exists == -1 } {
-          set newFile [file join $qal_cat_dir "accounts-ledger.$locale.$charset.xml"]
+          set newFile [file join $qal_cat_dir "accounts-ledger.${locale}.$charset.xml"]
           set write_type "w"
       } else {
           set write_type "a"
@@ -56,7 +56,7 @@
 #          puts stdout "w"
           if { $file_exists == -1 } {
               puts $newId "<?xml version=\"1.0\" encoding=\"$charset\"?>
-<message_catalog package_key=\"accounts-ledger\" package_version=\"0.1d\" locale=\"$locale\" charset=\"$charset\">
+<message_catalog package_key=\"accounts-ledger\" package_version=\"0.1d\" locale=\"${locale}\" charset=\"$charset\">
 
 "
           }