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:54:07
@@ -1364,7 +1372,9 @@
 	 * Call elog(), restore the original restart address
 	 * and return to the caller (if not catched)
 	 ************************************************************/
-	elog(level, argv[2]);
+	UTF_BEGIN;
+	elog(level, UTF_U2E(argv[2]));
+	UTF_END;
 	memcpy(&Warn_restart, &save_restart, sizeof(Warn_restart));
 	return TCL_OK;
 }