diff --git a/harbour/ChangeLog b/harbour/ChangeLog
index 0435343bec..542aae8c44 100644
--- a/harbour/ChangeLog
+++ b/harbour/ChangeLog
@@ -1,3 +1,8 @@
+20000117-16:05 GMT+1 Ryszard Glab <rglab@imid.med.pl>
+
+    *source/rdd/dbcmd.c
+	* fixed GPF in ORDBAGEXT()
+	
 20000117-13:30 GMT+1 Ryszard Glab <rglab@imid.med.pl>
 
     *source/rtl/type.c
diff --git a/harbour/source/rdd/dbcmd.c b/harbour/source/rdd/dbcmd.c
index b44b14210e..ad6f8bea97 100644
--- a/harbour/source/rdd/dbcmd.c
+++ b/harbour/source/rdd/dbcmd.c
@@ -5901,7 +5901,7 @@ HARBOUR HB_ORDBAGEXT( void )
       else
       {
          pInfo.itmResult = hb_itemPutC( NULL, "" );
-         SELF_ORDINFO( ( AREAP ) pCurrArea->pArea, DBOI_BAGEXT, &pInfo );
+         SELF_ORDINFO( pTempArea, DBOI_BAGEXT, &pInfo );
          hb_retc( pInfo.itmResult->item.asString.value );
          hb_itemRelease( pInfo.itmResult );
          SELF_RELEASE( ( AREAP ) pTempArea );