diff --git a/harbour/ChangeLog b/harbour/ChangeLog
index 68fe191d1e..b0519d9ba3 100644
--- a/harbour/ChangeLog
+++ b/harbour/ChangeLog
@@ -1,3 +1,9 @@
+19990623-01:00 CET Victor Szel <info@szelvesz.hu>
+  * source/rtl/asort.prg
+    Added patch posted by 
+    Dave Pearson <davep@hagbard.demon.co.uk>
+    quicksort() is STATIC now.
+
 19990622-00:35 Ryszard Glab <rglab@imid.med.pl>
 * source/compiler/harbour.y
 * source/compiler/harbour.l
diff --git a/harbour/source/rtl/asort.prg b/harbour/source/rtl/asort.prg
index 23a3e69d4e..075ae5fba9 100644
--- a/harbour/source/rtl/asort.prg
+++ b/harbour/source/rtl/asort.prg
@@ -34,7 +34,7 @@ return aIn
 // For instructions :
 // http://monty.cnri.reston.va.us/grail/demo/quicksort/quicksort.htm
 //
-function QuickSort( aSort, nLeft, nRight, bOrder )
+static function QuickSort( aSort, nLeft, nRight, bOrder )
 
    local nUp     := nLeft
    local nDown   := nRight