From 2ce077e7c8a82332c62a598756f2de7dffb17376 Mon Sep 17 00:00:00 2001
From: sebres <sebres@users.sourceforge.net>
Date: Tue, 26 Apr 2022 12:03:41 +0000
Subject: fixes compilation of try-command [27520c9b17]: compile only if finaly
 token is simple

---
 generic/tclCompCmdsSZ.c | 3 +++
 1 file changed, 3 insertions(+)

diff --git a/generic/tclCompCmdsSZ.c b/generic/tclCompCmdsSZ.c
index 53bff6e..abaf7a7 100644
--- a/generic/tclCompCmdsSZ.c
+++ b/generic/tclCompCmdsSZ.c
@@ -2929,6 +2929,9 @@ TclCompileTryCmd(
 	    goto failedToCompile;
 	}
 	finallyToken = TokenAfter(tokenPtr);
+	if (finallyToken->type != TCL_TOKEN_SIMPLE_WORD) {
+	    goto failedToCompile;
+	}
     } else {
 	goto failedToCompile;
     }
-- 
cgit v0.12