From cc4b41d468c5174c2797c82e149864ef6ecc47de Mon Sep 17 00:00:00 2001
From: mysticbbs <mysticbbs@gmail.com>
Date: Sat, 3 Mar 2012 21:30:18 -0500
Subject: [PATCH] Fix for USES MBASE crashing

---
 mystic/mpl_common.pas | 12 ++++++------
 1 file changed, 6 insertions(+), 6 deletions(-)

diff --git a/mystic/mpl_common.pas b/mystic/mpl_common.pas
index 62b5448..925218f 100644
--- a/mystic/mpl_common.pas
+++ b/mystic/mpl_common.pas
@@ -313,8 +313,8 @@ Begin
           AddVar ({$IFDEF MPLPARSER} 'userlaston',    {$ENDIF} iLongInt);
           AddVar ({$IFDEF MPLPARSER} 'userdatetype',  {$ENDIF} iByte);
           AddVar ({$IFDEF MPLPARSER} 'usercalls',     {$ENDIF} iLongInt);
-          AddVar ({$IFDEF MPLPARSER} 'userpassword',  {$ENDIF} iString);
-          AddVar ({$IFDEF MPLPARSER} 'userflags',     {$ENDIF} iByte);
+          AddStr ({$IFDEF MPLPARSER} 'userpassword',  {$ENDIF} iString, 15);
+          AddVar ({$IFDEF MPLPARSER} 'userflags',     {$ENDIF} iLongInt);
         End;
     2 : Begin
           AddPointer ({$IFDEF MPLPARSER} 'cfgsyspath',     {$ENDIF} iString, mysMaxPathSize, {$IFNDEF MPLPARSER} @Config.SystemPath     {$ELSE} NIL {$ENDIF});
@@ -336,10 +336,10 @@ Begin
 
           AddVar ({$IFDEF MPLPARSER} 'mbaseindex',    {$ENDIF} iInteger);
           AddStr ({$IFDEF MPLPARSER} 'mbasename',     {$ENDIF} iString, 40);
-          AddStr ({$IFDEF MPLPARSER} 'mbaseacs',      {$ENDIF} iString, 20);
-          AddStr ({$IFDEF MPLPARSER} 'mbaseracs',     {$ENDIF} iString, 20);
-          AddStr ({$IFDEF MPLPARSER} 'mbasepacs',     {$ENDIF} iString, 20);
-          AddStr ({$IFDEF MPLPARSER} 'mbasesacs',     {$ENDIF} iString, 20);
+          AddStr ({$IFDEF MPLPARSER} 'mbaseacs',      {$ENDIF} iString, 30);
+          AddStr ({$IFDEF MPLPARSER} 'mbaseracs',     {$ENDIF} iString, 30);
+          AddStr ({$IFDEF MPLPARSER} 'mbasepacs',     {$ENDIF} iString, 30);
+          AddStr ({$IFDEF MPLPARSER} 'mbasesacs',     {$ENDIF} iString, 30);
         End;
     4 : Begin
           {$IFNDEF MPLPARSER} TInterpEngine(S).IdxVarMGroup := X + 1; {$ENDIF}