Index: openacs-4/packages/acs-tcl/tcl/00-database-procs-postgresql.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-tcl/tcl/00-database-procs-postgresql.tcl,v
diff -u -N -r1.1 -r1.2
--- openacs-4/packages/acs-tcl/tcl/00-database-procs-postgresql.tcl	12 Apr 2001 16:58:18 -0000	1.1
+++ openacs-4/packages/acs-tcl/tcl/00-database-procs-postgresql.tcl	13 Apr 2001 19:10:32 -0000	1.2
@@ -326,7 +326,9 @@
 
 } {
     
-    set fp [open "|[file join [db_get_pgbin] psql] [db_get_database] -f $file" "r"]
+    set file_name [file tail $file]
+    cd [file dirname $file]
+    set fp [open "|[file join [db_get_pgbin] psql] [db_get_database] -f $file_name" "r"]
 
     while { [gets $fp line] >= 0 } {
 	# Don't bother writing out lines which are purely whitespace.