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;