diff -r e9e6b4d740f6 -r 42dba3e7fed2 tools/PascalParser.hs
--- a/tools/PascalParser.hs	Fri Aug 31 22:00:31 2012 +0200
+++ b/tools/PascalParser.hs	Fri Aug 31 22:08:29 2012 +0200
@@ -438,7 +438,7 @@
     return o
 
 ifBlock = do
-    try $ string "if"
+    try $ string "if" >> notFollowedBy alphaNum
     comments
     e <- expression
     comments