There is a patch which has worked for me. The real problem might

bmomjian · bmomjian · commit 67a636918a85 · 1998-06-16T05:50:55.000Z
be in PQreset, which can't reset a conninfo based connection. The
patch:

Arpad Magosanyi
diff --git a/src/interfaces/libpgtcl/pgtclCmds.c b/src/interfaces/libpgtcl/pgtclCmds.c
@@ -7,7 +7,7 @@
  *
  *
  * IDENTIFICATION
- *	  $Header: /cvsroot/pgsql/src/interfaces/libpgtcl/Attic/pgtclCmds.c,v 1.25 1998/06/16 04:10:16 momjian Exp $
+ *	  $Header: /cvsroot/pgsql/src/interfaces/libpgtcl/Attic/pgtclCmds.c,v 1.26 1998/06/16 05:50:55 momjian Exp $
  *
  *-------------------------------------------------------------------------
  */
@@ -442,7 +442,7 @@ Pg_exec(ClientData cData, Tcl_Interp *interp, int argc, char* argv[])
     else {
 	/* error occurred during the query */
 	Tcl_SetResult(interp, conn->errorMessage, TCL_STATIC);
-	if (connStatus == CONNECTION_OK) {
+	if (connStatus != CONNECTION_OK) {
 	    /* Is this REALLY a good idea?  I don't think so! */
 	    PQreset(conn);
 	    if (conn->status == CONNECTION_OK) {

Original file line number	Diff line number	Diff line change
`@@ -7,7 +7,7 @@`
`7`	`7`	`*`
`8`	`8`	`*`
`9`	`9`	`* IDENTIFICATION`
`10`		`- * $Header: /cvsroot/pgsql/src/interfaces/libpgtcl/Attic/pgtclCmds.c,v 1.25 1998/06/16 04:10:16 momjian Exp $`
	`10`	`+ * $Header: /cvsroot/pgsql/src/interfaces/libpgtcl/Attic/pgtclCmds.c,v 1.26 1998/06/16 05:50:55 momjian Exp $`
`11`	`11`	`*`
`12`	`12`	`*-------------------------------------------------------------------------`
`13`	`13`	`*/`
`@@ -442,7 +442,7 @@ Pg_exec(ClientData cData, Tcl_Interp interp, int argc, char argv[])`
`442`	`442`	`else {`
`443`	`443`	`/* error occurred during the query */`
`444`	`444`	`Tcl_SetResult(interp, conn->errorMessage, TCL_STATIC);`
`445`		`- if (connStatus == CONNECTION_OK) {`
	`445`	`+ if (connStatus != CONNECTION_OK) {`
`446`	`446`	`/* Is this REALLY a good idea? I don't think so! */`
`447`	`447`	`PQreset(conn);`
`448`	`448`	`if (conn->status == CONNECTION_OK) {`