diff -r 76a9274f280f -r de20086a6bcc tools/PascalUnitSyntaxTree.hs
--- a/tools/PascalUnitSyntaxTree.hs	Thu May 10 22:55:13 2012 +0400
+++ b/tools/PascalUnitSyntaxTree.hs	Thu May 10 23:51:05 2012 +0400
@@ -103,7 +103,7 @@
     | BTInt
     | BTBool
     | BTFloat
-    | BTRecord [(String, BaseType)]
+    | BTRecord String [(String, BaseType)]
     | BTArray Range BaseType BaseType
     | BTFunction Int BaseType
     | BTPointerTo BaseType