From 3f1d39959622bf80c87716c3fe493a5487e61a6d Mon Sep 17 00:00:00 2001
From: ferrieux <ferrieux@users.sourceforge.net>
Date: Mon, 14 Nov 2011 17:49:16 +0000
Subject: [Bug 3437816]: Missing TCL_ERROR return in [canvas lower].

---
 ChangeLog          | 5 +++++
 generic/tkCanvas.c | 1 +
 2 files changed, 6 insertions(+)

diff --git a/ChangeLog b/ChangeLog
index bed9e4b..d39cd72 100644
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,3 +1,8 @@
+2011-11-14  Alexandre Ferrieux  <ferrieux@users.sourceforge.net>
+
+	* generic/tkCanvas.c: [Bug 3437816]: Missing TCL_ERROR return
+	in [canvas lower].
+
 2011-11-08  Reinhard Max  <max@suse.de>
 
 	* unix/Makefile.in: Add square to DEMOPROGS. It contains a shebang
diff --git a/generic/tkCanvas.c b/generic/tkCanvas.c
index f244aad..14d8261 100644
--- a/generic/tkCanvas.c
+++ b/generic/tkCanvas.c
@@ -1649,6 +1649,7 @@ CanvasWidgetCmd(
 	    if (itemPtr == NULL) {
 		Tcl_AppendResult(interp, "tag \"", Tcl_GetString(objv[3]),
 			"\" doesn't match any items", NULL);
+		result = TCL_ERROR;
 		goto done;
 	    }
 	    itemPtr = itemPtr->prevPtr;
-- 
cgit v0.12