diff --git a/parsers/tcl.c b/parsers/tcl.c
index 073777c25f..8c0039109c 100644
--- a/parsers/tcl.c
+++ b/parsers/tcl.c
@@ -391,7 +391,7 @@ static void notifyNamespaceImport (tokenInfo *const token)
 static int notifyCommand (tokenInfo *const token, unsigned int parent)
 {
 	subparser *sub;
-	int r;
+	int r = CORK_NIL;
 
 	foreachSubparser (sub, false)
 	{