diff --git a/src/interfaces/libpgtcl/pgtclCmds.c b/src/interfaces/libpgtcl/pgtclCmds.c
index 5b3d5e91d54d3c8fb8e903dff6232ffcb339975f..5444c504175e9831d04e66f8819c6378a477ae3c 100644
--- 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) {