diff options
-rw-r--r-- | generic/tclOO.c | 6 |
1 files changed, 6 insertions, 0 deletions
diff --git a/generic/tclOO.c b/generic/tclOO.c index 74de6d0..02e00c9 100644 --- a/generic/tclOO.c +++ b/generic/tclOO.c @@ -1008,6 +1008,12 @@ ReleaseClassContents( } if (!Deleted(instancePtr)) { Tcl_DeleteCommandFromToken(interp, instancePtr->command); + /* + * Tcl_DeleteCommandFromToken() may have done to whole + * job for us. Roll back and check again. + */ + i--; + continue; } DelRef(instancePtr); } |