src/tcLex.c | 4 ++++
1 file changed, 4 insertions(+)
--- tclex-1.2a1.orig/src/tcLex.c
+++ tclex-1.2a1/src/tcLex.c
@@ -1145,7 +1145,11 @@
currentLexer = LexerGetCurrent(interp);
if (currentLexer) {
+#ifdef CMD_IS_DELETED
+ if (((Command*)currentLexer->command)->flags & CMD_IS_DELETED)
+#else
if (((Command*)currentLexer->command)->deleted)
+#endif
/* If command has been deleted, the token is meaningless. Return no result */
Tcl_ResetResult(interp);
else