Revise [info frame] so that it stops creating cycles

in the iPtr->cmdFramePtr stack.

2 files changed, 6 insertions, 1 deletions

diff --git a/ChangeLog b/ChangeLog
index 2096795..e2a5b21 100644
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,3 +1,8 @@
+2011-09-22  Don Porter  <dgp@users.sourceforge.net>
+
+	* generic/tclCmdIL.c:	Revise [info frame] so that it stops creating
+	cycles in the iPtr->cmdFramePtr stack.
+
 2011-09-22  Donal K. Fellows  <dkf@users.sf.net>
 
 	* doc/re_syntax.n: [Bug 2903743]: Add more magic so that we can do at
diff --git a/generic/tclCmdIL.c b/generic/tclCmdIL.c
index 95532d3..f28e651 100644
--- a/generic/tclCmdIL.c
+++ b/generic/tclCmdIL.c
@@ -1163,7 +1163,7 @@ InfoFrameCmd(
             lastPtr = runPtr;
             runPtr = runPtr->nextPtr;
         }
-        if (lastPtr && !runPtr) {
+        if (lastPtr && (runPtr != NULL)) {
             lastPtr->nextPtr = corPtr->caller.cmdFramePtr;
         }
     }