From 5680f8795f9eb615479948d8172534e82fe438a4 Mon Sep 17 00:00:00 2001
From: Bruce Momjian <bruce@momjian.us>
Date: Thu, 30 Oct 1997 05:00:56 +0000
Subject: [PATCH] Fix for array handling, from Gerhard Hintermayer

---
 src/interfaces/libpgtcl/pgtclCmds.c | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/src/interfaces/libpgtcl/pgtclCmds.c b/src/interfaces/libpgtcl/pgtclCmds.c
index f747869ebd..f52c20d1f1 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.16 1997/09/25 15:48:51 momjian Exp $
+ *	  $Header: /cvsroot/pgsql/src/interfaces/libpgtcl/Attic/pgtclCmds.c,v 1.17 1997/10/30 05:00:56 momjian Exp $
  *
  *-------------------------------------------------------------------------
  */
@@ -645,7 +645,7 @@ Pg_result(ClientData cData, Tcl_Interp * interp, int argc, char *argv[])
 #ifdef TCL_ARRAYS
 		for (i = 0; i < PQnfields(result); i++)
 		{
-			Tcl_AppendElement(interp, tcl_value(PQgetvalue(result, tupno, i)));
+			Tcl_AppendElement(interp, PQgetvalue(result,tupno,i));
 		}
 #else
 /*		Tcl_AppendResult(interp, PQgetvalue(result,tupno,0),NULL); */