Index: openacs-4/packages/acs-tcl/tcl/00-database-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-tcl/tcl/00-database-procs.tcl,v
diff -u -r1.32 -r1.33
--- openacs-4/packages/acs-tcl/tcl/00-database-procs.tcl	17 Jul 2003 01:10:40 -0000	1.32
+++ openacs-4/packages/acs-tcl/tcl/00-database-procs.tcl	7 Aug 2003 14:56:34 -0000	1.33
@@ -2235,12 +2235,17 @@
             set tmpnam [ns_tmpnam]
 
             set fd [open $file r]
-            set fd1 [open $tmpnam w]
-            write $fd1 [subst [read $fd]]
-            close $fd1
+            set file_contents [read $fd]
             close $fd
 
+            set file_contents [subst $file_contents]
+            
+            set fd1 [open "${tmpnam}.ctl" w]
+            puts $fd1 $file_contents
+            close $fd1
+
             cd [file dirname $file]
+
             set fd [open "|[file join $env(ORACLE_HOME) bin sqlldr] userid=$user_pass control=$tmpnam" "r"]
 
             while { [gets $fd line] >= 0 } {