From bbb3916764c9ed3ccb405ac9c0fb27cee0fed9ab Mon Sep 17 00:00:00 2001
From: mysticbbs <mysticbbs@gmail.com>
Date: Fri, 20 Apr 2012 19:28:21 -0400
Subject: [PATCH] Fix for records

---
 mystic/mpl_compile.pas | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/mystic/mpl_compile.pas b/mystic/mpl_compile.pas
index 7c2896a..6e57b47 100644
--- a/mystic/mpl_compile.pas
+++ b/mystic/mpl_compile.pas
@@ -1303,7 +1303,7 @@ Begin
   If VarData[VarNum]^.vType <> iRecord Then
     Error (mpsTypeMismatch, '');
 
-  OutWord (VarNum);
+  OutWord (VarData[VarNum]^.VarID);
 End;
 
 Procedure TParserEngine.NewBooleanCrap;