diff --git a/harbour/ChangeLog b/harbour/ChangeLog
index cc440e7656..bac4e452f7 100644
--- a/harbour/ChangeLog
+++ b/harbour/ChangeLog
@@ -8,6 +8,10 @@
    2002-12-01 13:30 UTC+0100 Foo Bar <foo.bar@foobar.org>
 */
 
+2007-05-21 13:11 UTC+0100 Miguel Angel Marchuet (miguelangel/at/marchuet.net)
+  * contrib/bmdbfcdx/bmdbfcdx1.c
+    * minor warning fix on os/2 compile.
+
 2007-05-20 13:29 UTC+0100 Viktor Szakats (harbour.01 syenar.hu)
    * harbour/source/rtl/hbffind.c
      ! Added HB_EXPORT for hb_fsFind*() functions.
diff --git a/harbour/contrib/bmdbfcdx/bmdbfcdx1.c b/harbour/contrib/bmdbfcdx/bmdbfcdx1.c
index 27337f84c9..e96b79553f 100644
--- a/harbour/contrib/bmdbfcdx/bmdbfcdx1.c
+++ b/harbour/contrib/bmdbfcdx/bmdbfcdx1.c
@@ -6852,7 +6852,7 @@ HB_FUNC( BM_DBSEEKWILD )
        if( !ISNIL( 1 ) )
        {
           pKey = hb_param( 1, HB_IT_ANY );
-          bSoftSeek = ISLOG( 2 ) ? hb_parl( 2 ) : hb_set.HB_SET_SOFTSEEK;
+          bSoftSeek = ISLOG( 2 ) ? (BOOL) hb_parl( 2 ) : hb_set.HB_SET_SOFTSEEK;
           bFindLast = ISLOG( 3 ) ? hb_parl( 3 ) : FALSE;
           bNext     = ISLOG( 4 ) ? hb_parl( 4 ) : FALSE;
           bAll      = ISLOG( 5 ) ? hb_parl( 5 ) : FALSE;