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.13 -r1.14
--- openacs-4/packages/acs-tcl/tcl/00-database-procs-oracle.tcl	2 Sep 2001 12:26:05 -0000	1.13
+++ openacs-4/packages/acs-tcl/tcl/00-database-procs-oracle.tcl	3 Sep 2001 13:31:39 -0000	1.14
@@ -316,6 +316,7 @@
     
     global env
     set user_pass [db_get_sql_user]
+    cd [file dirname $file]
     set fp [open "|[file join $env(ORACLE_HOME) bin sqlplus] $user_pass @$file" "r"]
 
     while { [gets $fp line] >= 0 } {