Index: openacs-4/packages/acs-tcl/tcl/00-database-procs-oracle.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-tcl/tcl/00-database-procs-oracle.tcl,v
diff -u -r1.17 -r1.18
--- openacs-4/packages/acs-tcl/tcl/00-database-procs-oracle.tcl	14 Aug 2002 18:56:07 -0000	1.17
+++ openacs-4/packages/acs-tcl/tcl/00-database-procs-oracle.tcl	27 Jan 2003 21:20:12 -0000	1.18
@@ -242,12 +242,7 @@
 
                 blob_get_file {
                     if {[file exists $content]} {
-                        set file [lindex $args 0]
-                        set ifp [open $content r]
-                        set ofp [open $file w]
-                        ns_cpfp $ifp $ofp
-                        close $ifp
-                        close $ofp
+                        file copy -- $content $file
                         return $selection
                     } else {
                         error "file: $content doesn't exist"
@@ -258,6 +253,7 @@
 
                     if {[file exists $content]} {
                         set ofp [open $content r]
+                        fconfigure $ofp -encoding binary
                         ns_writefp $ofp
                         close $ofp
                         return $selection