From 7d29e608c221d13804acceffa3d0f752ff5e6f43 Mon Sep 17 00:00:00 2001
From: "David G. Holm" <dholm@jsd-llc.com>
Date: Tue, 22 Oct 2002 21:34:22 +0000
Subject: [PATCH] See ChangeLog entry 2002-10-22 17:30 UTC-0400 David G. Holm
 <dholm@jsd-llc.com>

---
 harbour/ChangeLog          | 5 +++++
 harbour/source/rdd/dbcmd.c | 5 ++++-
 2 files changed, 9 insertions(+), 1 deletion(-)

diff --git a/harbour/ChangeLog b/harbour/ChangeLog
index 58ad6eedb5..2261909a90 100644
--- a/harbour/ChangeLog
+++ b/harbour/ChangeLog
@@ -8,6 +8,11 @@
    2002-12-01 23:12 UTC+0100 Foo Bar <foo.bar@foobar.org>
 */
 
+2002-10-22 17:30 UTC-0400 David G. Holm <dholm@jsd-llc.com>
+  * source/rdd/dbfcmd.c
+    * Made FIELDNAME Clipper compatible for the case where there is
+      no current workarea and when the field number does not exist.
+
 2002-10-22 02:00 UTC-0500 Paul Tucker <ptucker@sympatico.ca>
   * source/rdd/dbcmd.c
     ! corrected copy length in rddsetdefault
diff --git a/harbour/source/rdd/dbcmd.c b/harbour/source/rdd/dbcmd.c
index cd4f5f2649..cbddfa2818 100644
--- a/harbour/source/rdd/dbcmd.c
+++ b/harbour/source/rdd/dbcmd.c
@@ -2110,9 +2110,12 @@ HB_FUNC( FIELDNAME )
          hb_xfree( szName );
          return;
       }
+      /* This is not Clipper compatible! - David G. Holm <dholm@jsd-llc.com>
+       *
       hb_errRT_DBCMD( EG_ARG, EDBCMD_FIELDNAME_BADPARAMETER, NULL, "FIELDNAME" );
+      */
    }
-   hb_retc( NULL );
+   hb_retc( "" ); /* Was NULL, which is not Clipper compatible! - David G. Holm <dholm@jsd-llc.com> */
 }
 
 HB_FUNC( FIELDPOS )