From 6eaba406be6ffa013c13deb21d6d10d3e498a36b Mon Sep 17 00:00:00 2001
From: Antonio Carlos Pantaglione <toninho@fwi.com.br>
Date: Wed, 10 Sep 2003 12:43:13 +0000
Subject: [PATCH]   * source/vm/arrayshb.c     ! More clipper compatible on
 ADel().

---
 harbour/ChangeLog            | 4 ++++
 harbour/source/vm/arrayshb.c | 2 +-
 2 files changed, 5 insertions(+), 1 deletion(-)

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 );