From 117a07e6f2c50a2356b358b897b99baf2359c9df Mon Sep 17 00:00:00 2001
From: "donal.k.fellows@manchester.ac.uk" <dkf>
Date: Tue, 15 Jun 2004 15:37:31 +0000
Subject: D'oh!

---
 generic/tkCanvas.c | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/generic/tkCanvas.c b/generic/tkCanvas.c
index 7e7b4f7..2229375 100644
--- a/generic/tkCanvas.c
+++ b/generic/tkCanvas.c
@@ -12,7 +12,7 @@
  * See the file "license.terms" for information on usage and redistribution
  * of this file, and for a DISCLAIMER OF ALL WARRANTIES.
  *
- * RCS: @(#) $Id: tkCanvas.c,v 1.29 2004/06/15 15:28:23 dkf Exp $
+ * RCS: @(#) $Id: tkCanvas.c,v 1.30 2004/06/15 15:37:31 dkf Exp $
  */
 
 /* #define USE_OLD_TAG_SEARCH 1 */
@@ -360,7 +360,7 @@ static Tk_ClassProcs canvasClass = {
     if ((result=TagSearchScan(canvasPtr,(objPtr),(searchPtrPtr))) != TCL_OK){ \
 	errorExitClause; \
     } \
-    itemPtr = TagSearchFirst(searchPtr);
+    itemPtr = TagSearchFirst(*(searchPtrPtr));
 #define FOR_EVERY_CANVAS_ITEM_MATCHING(objPtr,searchPtrPtr,errorExitClause) \
     if ((result=TagSearchScan(canvasPtr,(objPtr),(searchPtrPtr))) != TCL_OK){ \
 	errorExitClause; \
-- 
cgit v0.12