Index: openacs-4/packages/acs-content-repository/tcl/content-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-content-repository/tcl/content-procs.tcl,v
diff -u -r1.6.2.1 -r1.6.2.2
--- openacs-4/packages/acs-content-repository/tcl/content-procs.tcl	14 Jan 2003 00:37:02 -0000	1.6.2.1
+++ openacs-4/packages/acs-content-repository/tcl/content-procs.tcl	5 Feb 2003 23:16:44 -0000	1.6.2.2
@@ -73,14 +73,7 @@
     if { $move_p } { 
         file rename -- $client_filename [cr_fs_path]$content_file
     } else { 
-        # JCD: not sure why ns_cpfp is used.  tcl file copy is better 
-        # since it is smarter about buffer sizes.
-        set ifp [open $client_filename r]
-        set ofp [open [cr_fs_path]$content_file w]
-        
-        ns_cpfp $ifp $ofp
-        close $ifp
-        close $ofp
+        file copy -- $client_filename [cr_fs_path]$content_file
     }
 
     return $content_file