Index: openacs-4/packages/acs-lang/tcl/lang-util-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-lang/tcl/lang-util-procs.tcl,v
diff -u -r1.18 -r1.19
--- openacs-4/packages/acs-lang/tcl/lang-util-procs.tcl	3 Dec 2002 17:11:20 -0000	1.18
+++ openacs-4/packages/acs-lang/tcl/lang-util-procs.tcl	27 Jan 2003 21:19:56 -0000	1.19
@@ -182,7 +182,7 @@
             regexp {\.([^.]+)$} $file match file_ending
     
             # Attempt a backup of the file first. Do not overwrite an old backup file.
-            if { [catch "file copy $full_file_path \"${full_file_path}.orig\"" errmsg] } {
+            if { [catch "file -- copy $full_file_path \"${full_file_path}.orig\"" errmsg] } {
                 ns_log Warning [list lang::util::replace_temporary_tags_with_lookups - The file $full_file_path \
                                 could not be backed up before message key extraction since backup file \
                                 ${full_file_path}.orig already exists]
@@ -574,7 +574,7 @@
             if { $n > 0 } {
                 # backup original file - fail silently if backup already exists
 
-                if { [catch {file copy $file_name $file_name.orig}] } { }
+                if { [catch {file copy -- $file_name $file_name.orig}] } { }
             
                 set fp [open $file_name "w"]
                 puts $fp $out