diff --git a/harbour/ChangeLog b/harbour/ChangeLog
index d1f0cbeb0b..b9345112a8 100644
--- a/harbour/ChangeLog
+++ b/harbour/ChangeLog
@@ -8,6 +8,10 @@
    2002-12-01 23:12 UTC+0100 Foo Bar <foo.bar@foobar.org>
 */
 
+2003-09-10 09:45 UTC-0300 Antonio Carlos Pantaglione <toninho@fwi.com.br>
+  * source/vm/arrayshb.c
+    ! More clipper compatible on ADel().
+
 2003-09-09 14:16 UTC+0300 Alexander Kresin <alex@belacy.belgorod.su>
    * source/pp/ppcore.c
      ! Bug fixed in preprocessor, reported by Randy Portnoff.
diff --git a/harbour/source/vm/arrayshb.c b/harbour/source/vm/arrayshb.c
index 126fda91a6..07f4019866 100644
--- a/harbour/source/vm/arrayshb.c
+++ b/harbour/source/vm/arrayshb.c
@@ -189,7 +189,7 @@ HB_FUNC( ADEL )
    {
       long int ulPos = 1;
 
-      if( ISNUM( 2 ) )
+      if( ISNUM( 2 ) && hb_parnl( 2 ) )
          ulPos = hb_parnl( 2 );
 
       hb_arrayDel( pArray, ulPos );