Index: src/pl/tcl/pltcl.c
===================================================================
RCS file: /home/src/pgsql/repo/pgsql/src/pl/tcl/pltcl.c,v
retrieving revision 1.40
diff -u -r1.40 pltcl.c
--- src/pl/tcl/pltcl.c	2001/10/01 15:33:31	1.40
+++ src/pl/tcl/pltcl.c	2001/10/03 19:26:55
@@ -789,7 +789,8 @@
 			pltcl_restart_in_progress = 1;
 			if (--pltcl_call_level == 0)
 				pltcl_restart_in_progress = 0;
-			elog(ERROR, "pltcl: %s", interp->result);
+			elog(ERROR, "pltcl: %s\n%s", interp->result,
+				Tcl_GetVar(interp,"errorInfo",TCL_GLOBAL_ONLY));
 		}
 		if (--pltcl_call_level == 0)
 			pltcl_restart_in_progress = 0;
@@ -1162,7 +1163,8 @@
 			pltcl_restart_in_progress = 1;
 			if (--pltcl_call_level == 0)
 				pltcl_restart_in_progress = 0;
-			elog(ERROR, "pltcl: %s", interp->result);
+			elog(ERROR, "pltcl: %s\n%s", interp->result,
+				Tcl_GetVar(interp,"errorInfo",TCL_GLOBAL_ONLY));
 		}
 		if (--pltcl_call_level == 0)
 			pltcl_restart_in_progress = 0;