diff --git a/ChangeLog.txt b/ChangeLog.txt
index 38d0bf95b7..dc057c7ac6 100644
--- a/ChangeLog.txt
+++ b/ChangeLog.txt
@@ -10,6 +10,10 @@
      * Change, ! Fix, % Optimization, + Addition, - Removal, ; Comment
  */
 
+2015-06-26 14:50 UTC+0200 Przemyslaw Czerpak (druzus/at/poczta.onet.pl)
+  * src/rtl/cdpapihb.c
+    ! typo in parameter number
+
 2015-06-26 14:18 UTC+0200 Przemyslaw Czerpak (druzus/at/poczta.onet.pl)
   * include/harbour.hbx
   * src/rtl/cdpapihb.c
diff --git a/src/rtl/cdpapihb.c b/src/rtl/cdpapihb.c
index e56da46a96..5063194f76 100644
--- a/src/rtl/cdpapihb.c
+++ b/src/rtl/cdpapihb.c
@@ -123,7 +123,7 @@ HB_FUNC( HB_CDPISCHARIDX )
       fResult = HB_CDP_ISCHARIDX( cdp );
       if( HB_CDP_ISCUSTOM( cdp ) && HB_ISLOG( 2 ) )
       {
-         if( hb_parl( 1 ) )
+         if( hb_parl( 2 ) )
             cdp->type |= HB_CDP_TYPE_CHARIDX;
          else
             cdp->type &= ~HB_CDP_TYPE_CHARIDX;