diff --git a/src/rdd/dbcmd.c b/src/rdd/dbcmd.c
index 5e2ec24bd0..67bef50f89 100644
--- a/src/rdd/dbcmd.c
+++ b/src/rdd/dbcmd.c
@@ -267,13 +267,17 @@ HB_FUNC( DBAPPEND )
 
    if( pArea )
    {
+#if defined( HB_COMPAT_C53 ) && defined( HB_CLP_STRICT )
       HB_BOOL bUnLockAll = hb_parldef( 1, HB_TRUE );
+#else
+      HB_BOOL bUnLockAll = HB_TRUE;
+#endif
       HB_ERRCODE errCode;
 
       /* Clipper clears NETERR flag before APPEND */
       hb_rddSetNetErr( HB_FALSE );
       errCode = SELF_APPEND( pArea, bUnLockAll );
-      hb_retl( errCode == HB_SUCCESS );
+      hb_retl( errCode == HB_SUCCESS );  /* HB_EXTENSION */
    }
    else
       hb_errRT_DBCMD( EG_NOTABLE, EDBCMD_NOTABLE, NULL, HB_ERR_FUNCNAME );