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.