diff --git a/harbour/ChangeLog b/harbour/ChangeLog
index 8890367809..025ee2ec66 100644
--- a/harbour/ChangeLog
+++ b/harbour/ChangeLog
@@ -16,6 +16,10 @@
    The license applies to all entries newer than 2009-04-28.
 */
 
+2012-10-19 13:59 UTC+0200 Viktor Szakats (harbour syenar.net)
+  * contrib/hbct/getsecrt.prg
+    * SET() -> Set()
+
 2012-10-19 13:51 UTC+0200 Viktor Szakats (harbour syenar.net)
   * contrib/hbct/getsecrt.prg
     ! GETSECRET() fixed to not access protected TGETLIST
diff --git a/harbour/contrib/hbct/getsecrt.prg b/harbour/contrib/hbct/getsecrt.prg
index 9cdbf452b4..2a92ddadd1 100644
--- a/harbour/contrib/hbct/getsecrt.prg
+++ b/harbour/contrib/hbct/getsecrt.prg
@@ -142,7 +142,7 @@ STATIC PROCEDURE _SECRET( _cGetSecret, lHide, oGet, oGetList )
                lHide := .T.
                LOOP
             ELSEIF ! ( cKey := hb_keyChar( nKey ) ) == ""
-               IF SET( _SET_INSERT )
+               IF Set( _SET_INSERT )
                   _cGetSecret := Stuff( Left( _cGetSecret, nLen - 1 ), ;
                      oGet:pos, 0, cKey )
                ELSE
@@ -153,7 +153,7 @@ STATIC PROCEDURE _SECRET( _cGetSecret, lHide, oGet, oGetList )
             GetApplyKey( oGet, nKey )
          ENDDO
 
-         IF !GetPostValidate( oGet )
+         IF ! GetPostValidate( oGet )
             oGet:exitState := GE_NOEXIT
          ENDIF
       ENDDO