From 03668f9f849817ba4aeaf24337c420bcea971898 Mon Sep 17 00:00:00 2001
From: mysticbbs <mysticbbs@gmail.com>
Date: Fri, 22 Feb 2013 20:45:12 -0500
Subject: [PATCH] Get upload filename was changing to the directory of the file

---
 mystic/nodespy_term.pas | 5 +++++
 1 file changed, 5 insertions(+)

diff --git a/mystic/nodespy_term.pas b/mystic/nodespy_term.pas
index 62b5404..a5a27ba 100644
--- a/mystic/nodespy_term.pas
+++ b/mystic/nodespy_term.pas
@@ -408,6 +408,7 @@ Var
   Str      : String;
   Path     : String;
   Mask     : String;
+  OrigDIR  : String;
 
   Procedure UpdateInfo;
   Begin
@@ -498,6 +499,8 @@ Begin
   DirList  := TMenuList.Create(TOutput(Screen));
   FileList := TMenuList.Create(TOutput(Screen));
 
+  GetDIR (0, OrigDIR);
+
   FileList.NoWindow   := True;
   FileList.LoChars    := #9#13#27;
   FileList.HiChars    := #77;
@@ -630,6 +633,8 @@ Begin
     End;
   Until Done;
 
+  ChDIR(OrigDIR);
+
   FileList.Free;
   DirList.Free;
   Box.Close;