diff --git a/ChangeLog.txt b/ChangeLog.txt
index 2bc7cddd75..81c74cc536 100644
--- a/ChangeLog.txt
+++ b/ChangeLog.txt
@@ -449,6 +449,10 @@
          RETURN
       With above peace of code you can mix HBQT or other QT wrapper with GTQTC.
 
+2022-10-17 19:58 UTC+0200 Przemyslaw Czerpak (druzus/at/poczta.onet.pl)
+  * src/rdd/workarea.c
+    * pacified warning
+
 2019-12-03 11:42 UTC+0100 Maurizio la Cecilia (m.lacecilia/at/gmail.com)
   * ChangeLog.txt
     * restored UTF-8 encoding after previous wrong commit (Sorry!!!)
diff --git a/src/rdd/workarea.c b/src/rdd/workarea.c
index 4df85f38eb..7fe58629ab 100644
--- a/src/rdd/workarea.c
+++ b/src/rdd/workarea.c
@@ -1967,6 +1967,13 @@ static HB_ERRCODE hb_waUnsupported( AREAP pArea )
    return HB_FAILURE;
 }
 
+static HB_ERRCODE hb_waUnsupported_B( AREAP pArea, HB_BOOL p1 )
+{
+   HB_SYMBOL_UNUSED( p1 );
+
+   return hb_waUnsupported( pArea );
+}
+
 static HB_ERRCODE hb_waUnsupported_V( AREAP pArea, void * p1 )
 {
    HB_SYMBOL_UNUSED( p1 );
@@ -2123,7 +2130,7 @@ static const RDDFUNCS waTable =
 
    /* Data management */
 /* ( DBENTRYP_VF )   */ hb_waAddField,          /* AddField       */
-   ( DBENTRYP_B )       hb_waUnsupported_L,     /* Append         */
+   ( DBENTRYP_B )       hb_waUnsupported_B,     /* Append         */
 /* ( DBENTRYP_I )    */ hb_waCreateFields,      /* CreateFields   */
    ( DBENTRYP_V )       hb_waUnsupported,       /* DeleteRec      */
    ( DBENTRYP_BP )      hb_waUnsupported_V,     /* Deleted        */