From 56e6441ec03c610439cc1dece994fc20d3cbd9bb Mon Sep 17 00:00:00 2001
From: mysticbbs <mysticbbs@gmail.com>
Date: Mon, 4 Mar 2013 23:49:12 -0500
Subject: [PATCH] WordGet fix

---
 mdl/m_strings.pas | 3 ++-
 1 file changed, 2 insertions(+), 1 deletion(-)

diff --git a/mdl/m_strings.pas b/mdl/m_strings.pas
index e10aa1a..f267925 100644
--- a/mdl/m_strings.pas
+++ b/mdl/m_strings.pas
@@ -273,7 +273,8 @@ Begin
   Count  := 1;
   Temp   := Str;
 
-  While Pos(Ch, Temp) = 1 Do Delete (Temp, 1, 1);
+  If Ch = ' ' Then
+    While Pos(Ch, Temp) = 1 Do Delete (Temp, 1, 1);
 
   While Count < Num Do Begin
     Start := Pos(Ch, Temp);