Index: openacs-4/packages/file-storage/tcl/file-storage-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/file-storage/tcl/file-storage-procs.tcl,v
diff -u -r1.28 -r1.29
--- openacs-4/packages/file-storage/tcl/file-storage-procs.tcl	18 Nov 2002 18:01:04 -0000	1.28
+++ openacs-4/packages/file-storage/tcl/file-storage-procs.tcl	27 Jan 2003 21:20:25 -0000	1.29
@@ -551,13 +551,7 @@
                 set cr_path [cr_fs_path $storage_area_key]
                 set cr_file_name [db_string select_file_name {}]
 
-                set ifp [open "${cr_path}${cr_file_name}" r]
-                set ofp [open [file join ${path} ${file_name}] w]
-
-                ns_cpfp $ifp $ofp
-
-                close $ifp
-                close $ofp
+                file copy -- "${cr_path}${cr_file_name}" [file join ${path} ${file_name}]
             }
         }