diff --git a/harbour/ChangeLog b/harbour/ChangeLog
index f6d732e398..986e293f58 100644
--- a/harbour/ChangeLog
+++ b/harbour/ChangeLog
@@ -16,6 +16,11 @@
    The license applies to all entries newer than 2009-04-28.
 */
 
+2012-11-02 16:18 UTC+0100 Viktor Szakats (harbour syenar.net)
+  * utils/hbmk2/hbmk2.prg
+    ! minor follow up, fixing to hint function names starting
+      with an underscore
+
 2012-11-02 16:09 UTC+0100 Viktor Szakats (harbour syenar.net)
   * utils/hbmk2/hbmk2.prg
     + added experimental feature, which will hint .hbc and -l
diff --git a/harbour/utils/hbmk2/hbmk2.prg b/harbour/utils/hbmk2/hbmk2.prg
index 0c217031a5..9a754f2e3b 100644
--- a/harbour/utils/hbmk2/hbmk2.prg
+++ b/harbour/utils/hbmk2/hbmk2.prg
@@ -12274,7 +12274,7 @@ STATIC FUNCTION ExtractHarbourSymbols( cString )
    LOCAL cOldCP
 
    cOldCP := hb_cdpSelect( "EN" )
-   IF ! Empty( pRegex := hb_regexComp( "HB_FUN_([A-Z][A-Z0-9_]*)", .T., .T. ) )
+   IF ! Empty( pRegex := hb_regexComp( "HB_FUN_([A-Z_][A-Z_0-9]*)", .T., .T. ) )
       aList := hb_regexAll( pRegex, StrTran( cString, Chr( 13 ) ),,,,, .T. )
       FOR EACH tmp IN aList
          tmp := tmp[ 2 ]