From 0c42f9ff57158f3d567f5327f057cc84a584be9d Mon Sep 17 00:00:00 2001
From: mysticbbs <mysticbbs@gmail.com>
Date: Sun, 4 Mar 2012 16:58:57 -0500
Subject: [PATCH] Fix for conditional

---
 mdl/m_quicksort.pas | 8 +++++---
 1 file changed, 5 insertions(+), 3 deletions(-)

diff --git a/mdl/m_quicksort.pas b/mdl/m_quicksort.pas
index 635f746..f280fa5 100644
--- a/mdl/m_quicksort.pas
+++ b/mdl/m_quicksort.pas
@@ -81,9 +81,11 @@ Begin
     Self.Add(Name, Ptr)
   Else
     For Count := Total DownTo 1 Do
-      If Data[Count].Name < Name Then Begin
-        Data[Count].Name := Name;
-        Data[Count].Ptr  := Ptr;
+      If Data[Count]^.Name < Name Then Begin
+        Data[Count]^.Name := Name;
+        Data[Count]^.Ptr  := Ptr;
+
+        Break;
       End;
 End;