Index: openacs-4/packages/acs-tcl/tcl/00-database-procs-postgresql.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-tcl/tcl/Attic/00-database-procs-postgresql.tcl,v
diff -u -r1.14 -r1.15
--- openacs-4/packages/acs-tcl/tcl/00-database-procs-postgresql.tcl	9 May 2001 22:32:25 -0000	1.14
+++ openacs-4/packages/acs-tcl/tcl/00-database-procs-postgresql.tcl	10 May 2001 17:35:51 -0000	1.15
@@ -580,14 +580,17 @@
     set file_name [file tail $file]
 
     set pguser [db_get_username]
+    if { ![string equal $pguser ""] } {
+	set pguser "-U $pguser"
+    }
 
     set pgport [db_get_port]
     if { ![string equal $pgport ""] } {
 	set pgport "--port $pgport"
     }
 
     cd [file dirname $file]
-    set fp [open "|[file join [db_get_pgbin] psql] $pgport -U $pguser -f $file_name [db_get_database]" "r"]
+    set fp [open "|[file join [db_get_pgbin] psql] $pgport $pguser -f $file_name [db_get_database]" "r"]
 
     while { [gets $fp line] >= 0 } {
  	# Don't bother writing out lines which are purely whitespace.