From f870b12e0f7d42e7baf3e48bdc522c2f51077bfe Mon Sep 17 00:00:00 2001
From: Patrick Mast <harbour@winfakt.com>
Date: Thu, 10 Jun 1999 09:04:57 +0000
Subject: [PATCH] Resloves aSort Bug

---
 harbour/ChangeLog            | 4 ++++
 harbour/source/rtl/asort.prg | 2 +-
 2 files changed, 5 insertions(+), 1 deletion(-)

diff --git a/harbour/ChangeLog b/harbour/ChangeLog
index 665e505c46..5233e8d529 100644
--- a/harbour/ChangeLog
+++ b/harbour/ChangeLog
@@ -1,3 +1,7 @@
+19990610-09:30 CET Patrick Mast (Changes made by Jose Lalin)
+  * source/rtl/asort.prg
+    Resloved bug (Changed line 28 )
+
 19990610-10:30 Alexander Kresin ( files posted by Marek Horodyski )
   + source/rtl/natmsg/msgpl852.c
   + source/rtl/natmsg/msgplmaz.c
diff --git a/harbour/source/rtl/asort.prg b/harbour/source/rtl/asort.prg
index 41862cdb9a..8fccf0d082 100644
--- a/harbour/source/rtl/asort.prg
+++ b/harbour/source/rtl/asort.prg
@@ -25,7 +25,7 @@ function QuickSort( aSort, nLeft, nRight, bOrder )
 
    local nUp     := nLeft
    local nDown   := nRight
-   local xMiddle := aSort[ ( nLeft + nRight ) / 2 ]
+   local xMiddle := aSort[ int ( ( nLeft + nRight ) / 2 ) ]
    local xTemp
    local lOk     := .T.