diff --git a/mystic/mide.ini b/mystic/mide.ini
index 0b012b4..6cfb6c9 100644
--- a/mystic/mide.ini
+++ b/mystic/mide.ini
@@ -2,7 +2,7 @@
 ; =======================
 ;
 ; If you are editing this from within MIDE, make sure to save the file.  The
-; editor will need to be restarted for changes to take effect.
+; editor MUST be restarted for new changes to take effect.
 
 [General]
 
@@ -26,7 +26,7 @@
   ; attribute = foreground_color + background_color * 16
   ; foreground is 0-15 and background is 0-7
 
-  ; DARK SYNTAX COLORS
+  ; DARK SYNTAX COLORS (EXAMPLE)
   ; syn_normal  = 7
   ; syn_keyword = 10
   ; syn_string  = 12
@@ -35,7 +35,7 @@
   ; syn_hex     = 15
   ; syn_charstr = 12
 
-  ; FREEPASCAL SYNTAX COLORS
+  ; FREEPASCAL/BORLAND PASCAL IDE SYNTAX COLORS
   syn_normal  = 30
   syn_keyword = 31
   syn_string  = 27
diff --git a/mystic/mpl_common.pas b/mystic/mpl_common.pas
index daca545..f8b6931 100644
--- a/mystic/mpl_common.pas
+++ b/mystic/mpl_common.pas
@@ -360,6 +360,14 @@ Begin
           AddPointer ({$IFDEF MPLPARSER} 'cfgtimeout',     {$ENDIF} iWord,   4,              {$IFNDEF MPLPARSER} @Config.Inactivity     {$ELSE} NIL {$ENDIF});
           AddPointer ({$IFDEF MPLPARSER} 'cfgseeinvis',    {$ENDIF} iString, 20,             {$IFNDEF MPLPARSER} @Config.AcsSeeInvis    {$ELSE} NIL {$ENDIF});
           AddPointer ({$IFDEF MPLPARSER} 'cfgtnnodes',     {$ENDIF} iByte,    1,             {$IFNDEF MPLPARSER} @Config.INetTNNodes    {$ELSE} NIL {$ENDIF});
+
+          AddPointer ({$IFDEF MPLPARSER} 'cfgnetdesc',     {$ENDIF} iString, 30 * 25 - 1, {$IFNDEF MPLPARSER} @Config.NetDesc {$ELSE} NIL {$ENDIF});
+          CV[X]^.ArrPos := 1;
+          {$IFNDEF MPLPARSER}
+            CV[X]^.VarSize   := 26;
+            CV[X]^.ArrDim[1] := 30;
+          {$ENDIF}
+
         End;
     3 : Begin
           {$IFNDEF MPLPARSER} TInterpEngine(S).IdxVarMBase := X + 1; {$ENDIF}
@@ -370,6 +378,7 @@ Begin
           AddStr ({$IFDEF MPLPARSER} 'mbaseracs',     {$ENDIF} iString, 30);
           AddStr ({$IFDEF MPLPARSER} 'mbasepacs',     {$ENDIF} iString, 30);
           AddStr ({$IFDEF MPLPARSER} 'mbasesacs',     {$ENDIF} iString, 30);
+          AddVar ({$IFDEF MPLPARSER} 'mbasenetaddr',  {$ENDIF} iByte);
         End;
     4 : Begin
           {$IFNDEF MPLPARSER} TInterpEngine(S).IdxVarMGroup := X + 1; {$ENDIF}
diff --git a/mystic/mpl_execute.pas b/mystic/mpl_execute.pas
index badfb12..76a5876 100644
--- a/mystic/mpl_execute.pas
+++ b/mystic/mpl_execute.pas
@@ -242,6 +242,7 @@ Begin
   Move (M.ReadACS,  VarData[IdxVarMBase + 3 ]^.Data^, SizeOf(M.ReadACS));
   Move (M.PostACS,  VarData[IdxVarMBase + 4 ]^.Data^, SizeOf(M.PostACS));
   Move (M.SysopACS, VarData[IdxVarMBase + 5 ]^.Data^, SizeOf(M.SysopACS));
+  Move (M.NetAddr,  VarData[IdxVarMBase + 6 ]^.Data^, SizeOf(M.NetAddr));
 End;
 
 Function TInterpEngine.GetMBaseStats (Num: LongInt; SkipFrom, SkipRead: Boolean; Var Total, New, Yours: LongInt) : Boolean;
diff --git a/mystic/whatsnew.txt b/mystic/whatsnew.txt
index 94e8e5d..75b9954 100644
--- a/mystic/whatsnew.txt
+++ b/mystic/whatsnew.txt
@@ -3202,7 +3202,7 @@
    As usual with routing it can be confusing when you have very specific
    routing needs but if you have only single uplinks then it can be pretty
    straight forward.  EXISTING echomail users need to go in and add their
-   routing information.
+   routing information if they are using the internal tosser.
 
  + Message bases can now be tagged and deleted in bulk, along with their
    message base data files.
@@ -3248,4 +3248,15 @@
    this is supplied Mystic will go straight to reading mail instead of
    listing the messages and asking the user if they want to read e-mail.
 
+ + New MPL vars: CfgNetDesc (array 1..30 of string[25] contains network
+   descriptions) and MBaseNetAddr (contains the network address target of
+   the message base).  Ex:
+
+      Uses CFG, MBASE;
+
+      Begin
+        If GetMBase(1) Then
+          WriteLn ('Base #1 is in network: ' + CfgNetDesc[MBaseNetAddr]);
+      End.
+
    <ALPHA 32 RELEASED>