diff --git a/harbour/ChangeLog b/harbour/ChangeLog
index 409b551cc7..238af0f051 100644
--- a/harbour/ChangeLog
+++ b/harbour/ChangeLog
@@ -1,3 +1,7 @@
+19990904-15:20 GMT+1 Victor Szel <info@szelvesz.hu>
+  * source/rtl/arrays.c
+    ! hb_arrayScan() fixed. (Thanks Antonio)
+
 19990903-19:35 EDT David G. Holm <dholm@jsd-llc.com>
   * source/rtl/console.c
     ! Added #ifdef HARBOUR_USE_GTAPI/#endif around use of GT API
diff --git a/harbour/source/rtl/arrays.c b/harbour/source/rtl/arrays.c
index 001b57bf58..cebded0ed7 100644
--- a/harbour/source/rtl/arrays.c
+++ b/harbour/source/rtl/arrays.c
@@ -393,7 +393,7 @@ BOOL hb_arrayFill( PHB_ITEM pArray, PHB_ITEM pValue, ULONG ulStart, ULONG ulCoun
 
 ULONG hb_arrayScan( PHB_ITEM pArray, PHB_ITEM pValue, ULONG ulStart, ULONG ulCount )
 {
-   if( IS_ARRAY( pArray ) && IS_NIL( pValue ) )
+   if( IS_ARRAY( pArray ) && ! IS_NIL( pValue ) )
    {
       PBASEARRAY pBaseArray = pArray->item.asArray.value;
       ULONG      ulLen = pBaseArray->ulLen;