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 -N -r1.37 -r1.38
--- openacs-4/packages/acs-lang/tcl/lang-catalog-procs.tcl	11 Dec 2003 21:39:53 -0000	1.37
+++ openacs-4/packages/acs-lang/tcl/lang-catalog-procs.tcl	26 Jan 2004 15:39:45 -0000	1.38
@@ -331,14 +331,12 @@
         file mkdir $catalog_dir
     }
 
-    # Create a backup file first if there isn't one already
+    # Create a backup file first if a file already exists
     set backup_path "${file_path}.orig"
-    if { [file exists $file_path] && ![file exists $backup_path] } {
-        ns_log Notice "Backing up catalog file $file_path"
-        file copy -- $file_path $backup_path
-    } else {
-        ns_log Notice "Not backing up $file_path as backup file already exists"
-    }
+    if { [file exists $file_path] } {
+        ns_log Notice "Creating backup catalog file $backup_path"
+        file copy -force -- $file_path $backup_path
+    } 
 
     # Since the output charset, and thus the filename, may have changed since
     # last time that we wrote the catalog file we remove old files with the same locale
@@ -949,9 +947,8 @@
 
         if { [lsearch -exact {added updated deleted} $upgrade_status] != -1 } {
             incr message_count($upgrade_status)
-        } else {
-            incr message_count(processed)
-        }
+        } 
+        incr message_count(processed)
 
     } ;# End of message key loop