Index: openacs-4/packages/acs-tcl/tcl/apm-file-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-tcl/tcl/apm-file-procs.tcl,v
diff -u -r1.29.2.2 -r1.29.2.3
--- openacs-4/packages/acs-tcl/tcl/apm-file-procs.tcl	24 Nov 2003 19:47:34 -0000	1.29.2.2
+++ openacs-4/packages/acs-tcl/tcl/apm-file-procs.tcl	10 Dec 2003 22:17:50 -0000	1.29.2.3
@@ -523,10 +523,12 @@
         if { [catch {
             # Open a destination file.
             set file_path [ns_tmpnam].apm
-            set fileChan [open $file_path w+ 0600]
+            set fileChan [open $file_path w 0640]
             # Open the channel to the server.
             set httpChan [lindex [ns_httpopen GET $url] 0]
             ns_log Debug "APM: Copying data from $url"
+            fconfigure $httpChan -encoding binary
+            fconfigure $fileChan -encoding binary
             # Copy the data
             fcopy $httpChan $fileChan
             # Clean up.