diff --git a/app/Parser.hs b/app/Parser.hs
index 9d11cc8..96a1edd 100644
--- a/app/Parser.hs
+++ b/app/Parser.hs
@@ -174,7 +174,8 @@ isNormalTok _ = False
 isCallTok :: Lexeme -> Bool
 isCallTok (Tok x) =
   all (\c -> not (isSymbol c) && not (isPunctuation c) || c `elem` identParts) x
-isCallTok _ = True
+isCallTok (QTok _ _) = True
+isCallTok _ = False
 
 unTok (Tok t) = t
 unTok (QTok t _) = t