diff --git a/harbour/source/rtl/asort.prg b/harbour/source/rtl/asort.prg
index 8a4e1547fd..1def24686d 100644
--- a/harbour/source/rtl/asort.prg
+++ b/harbour/source/rtl/asort.prg
@@ -50,7 +50,9 @@ function aSort( aIn, nStart, nCount, bBlock )
         bBlock := {| x, y | x < y }
    ENDIF
 
-   QuickSort( aIn, nStart, nCount, bBlock )
+   IF len( aIn ) > 0
+      QuickSort( aIn, nStart, nCount, bBlock )
+   ENDIF
 
 return aIn