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.58 -r1.58.2.1
--- openacs-4/packages/acs-tcl/tcl/00-database-procs.tcl	14 Apr 2005 17:33:38 -0000	1.58
+++ openacs-4/packages/acs-tcl/tcl/00-database-procs.tcl	16 Jun 2005 00:24:52 -0000	1.58.2.1
@@ -2327,7 +2327,7 @@
             cd [file dirname $file]
             ns_log notice "\n DAVEB pghost = '${pghost}' pgport = '${pgport}' pguser = '${pguser}' \n"
             if { $tcl_platform(platform) == "windows" } {
-                set fp [open "|[file join [db_get_pgbin] psql] $pghost $pgport $pguser -f $file_name [db_get_database]" "r"]
+                set fp [open "|[file join [db_get_pgbin] psql] $pghost $pgport $pguser -f $file_name [db_get_database] $pgpass" "r"]
             } else {
                 set fp [open "|[file join [db_get_pgbin] psql] $pghost $pgport $pguser -f $file_name [db_get_database] $pgpass" "r"]
             }