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

---
 mystic/mpl_execute.pas | 5 ++++-
 1 file changed, 4 insertions(+), 1 deletion(-)

diff --git a/mystic/mpl_execute.pas b/mystic/mpl_execute.pas
index 3812fad..c900b4a 100644
--- a/mystic/mpl_execute.pas
+++ b/mystic/mpl_execute.pas
@@ -930,6 +930,7 @@ Var
   RecInfo   : TRecInfo;
   Target    : Byte;
   TempStr   : String;
+  RecID     : Word;
 Begin
   CheckArray (VarNum, ArrayData, RecInfo);
 
@@ -961,7 +962,9 @@ Begin
     iRecord   : Begin
                   NextWord;
 
-                  Move (VarData[W]^.Data^, GetDataPtr(VarNum, ArrayData, RecInfo)^, VarData[W]^.DataSize);
+                  RecID := FindVariable(W);
+
+                  Move (VarData[RecID]^.Data^, GetDataPtr(VarNum, ArrayData, RecInfo)^, VarData[RecID]^.DataSize);
                 End;
   End;
 End;