Fix regression: proc parsing without testKit extension

flightaware · Feb 6, 2020 · 0d6bee1 · 0d6bee1
1 parent 3a51e5b
commit 0d6bee1
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/lib/tcldebugger/instrument.tcl b/lib/tcldebugger/instrument.tcl
@@ -119,7 +119,7 @@ namespace eval instrument {
 			    {ifneeded 	{parseSimpleArgs 2 3 \
 				    {parseWord parseWord parseBody}}}
 			} {parseCommand}}
-	proc	7.3	{parseProcCmd}
+	proc	7.3	{parseSimpleArgs 3 3 {parseWord parseWord parseBody}}
 	return	7.3	{parseReturnCmd}
 	switch	7.3	{parseSwitchCmd}
 	time	7.3	{parseSimpleArgs 1 2 {parseBody parseWord}}