Index: openacs-4/contrib/obsolete-packages/mp3-jukebox/www/admin/mp3-add-2.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/contrib/obsolete-packages/mp3-jukebox/www/admin/mp3-add-2.tcl,v
diff -u -r1.2 -r1.2.2.1
--- openacs-4/contrib/obsolete-packages/mp3-jukebox/www/admin/mp3-add-2.tcl	5 Sep 2002 10:41:44 -0000	1.2
+++ openacs-4/contrib/obsolete-packages/mp3-jukebox/www/admin/mp3-add-2.tcl	5 Feb 2003 23:24:12 -0000	1.2.2.1
@@ -69,7 +69,7 @@
 
 set target_filename "[ad_parameter MP3FileLocation]/$client_filename"
 
-file copy -force $tmp_filename $target_filename
+file copy -force -- $tmp_filename $target_filename
 
 #regsub www [acs_root_dir] "bin/mp3_file_scan" script_path
 
Index: openacs-4/contrib/obsolete-packages/mp3-jukebox/www/admin/scanner.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/contrib/obsolete-packages/mp3-jukebox/www/admin/scanner.tcl,v
diff -u -r1.3 -r1.3.2.1
--- openacs-4/contrib/obsolete-packages/mp3-jukebox/www/admin/scanner.tcl	5 Sep 2002 10:41:44 -0000	1.3
+++ openacs-4/contrib/obsolete-packages/mp3-jukebox/www/admin/scanner.tcl	5 Feb 2003 23:24:12 -0000	1.3.2.1
@@ -39,9 +39,9 @@
     }
 
     set target_filename "[ad_parameter MP3FileLocation]/$client_filename"
-    file copy -force "$staging_filename" "$target_filename"
+    file copy -force -- "$staging_filename" "$target_filename"
     ns_log notice "DELETE:$staging_filename"
-    file delete -force "$staging_filename"
+    file delete -force -- "$staging_filename"
     
 
 set mp3_info_list [exec "[acs_root_dir]/packages/mp3-jukebox/bin/mp3_file_scan" "$target_filename"]
Index: openacs-4/packages/acs-tcl/tcl/00-database-procs-oracle.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-tcl/tcl/Attic/00-database-procs-oracle.tcl,v
diff -u -r1.17 -r1.17.2.1
--- 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	5 Feb 2003 23:24:43 -0000	1.17.2.1
@@ -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
Index: openacs-4/packages/acs-tcl/tcl/00-database-procs-postgresql.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-tcl/tcl/Attic/00-database-procs-postgresql.tcl,v
diff -u -r1.35.2.2 -r1.35.2.3
--- openacs-4/packages/acs-tcl/tcl/00-database-procs-postgresql.tcl	21 Jan 2003 13:47:53 -0000	1.35.2.2
+++ openacs-4/packages/acs-tcl/tcl/00-database-procs-postgresql.tcl	5 Feb 2003 23:24:43 -0000	1.35.2.3
@@ -466,11 +466,7 @@
                     switch $storage_type {
                         file {
                             if {[file exists $content]} {
-                                set ifp [open $content r]
-                                set ofp [open $file w]
-                                ns_cpfp $ifp $ofp
-                                close $ifp
-                                close $ofp
+                                file copy -- $content $file
                             } else {
                                 error "file: $content doesn't exist"
                             }
@@ -489,11 +485,7 @@
                         }
                     }
                 } elseif {[file exists $content]} {
-                    set ifp [open $content r]
-                    set ofp [open $file w]
-                    ns_cpfp $ifp $ofp
-                    close $ifp
-                    close $ofp
+                    file copy -- $content $file
                 } elseif {[regexp {^[0-9]+$} $content match]} {
                     ns_pg blob_select_file $db $content $file
                 } else {
@@ -508,6 +500,7 @@
                         file {
                             if {[file exists $content]} {
                                 set ofp [open $content r]
+                                fconfigure $ofp -encoding binary
                                 ns_writefp $ofp
                                 close $ofp
                             } else {
@@ -533,6 +526,7 @@
                     }
                 } elseif {[file exists $content]} {
                     set ofp [open $content r]
+                    fconfigure $ofp -encoding binary
                     ns_writefp $ofp
                     close $ofp
                 } elseif {[regexp {^[0-9]+$} $content match]} {