diff --git a/harbour/ChangeLog b/harbour/ChangeLog
index ea2890656e..eee0fe4790 100644
--- a/harbour/ChangeLog
+++ b/harbour/ChangeLog
@@ -16,6 +16,10 @@
    The license applies to all entries newer than 2009-04-28.
 */
 
+2011-10-17 12:55 UTC-0800 Pritpal Bedi (bedipritpal@hotmail.com)
+  * contrib/hbide/ideedit.prg
+    ! Fixed: uppercased source names were not considered for Harbour keywords.
+
 2011-10-14 10:42 UTC+0200 Przemyslaw Czerpak (druzus/at/priv.onet.pl)
   * harbour/include/hbapicdp.h
   * harbour/src/rtl/cdpapi.c
diff --git a/harbour/contrib/hbide/ideedit.prg b/harbour/contrib/hbide/ideedit.prg
index 50698d9afa..cf75589401 100644
--- a/harbour/contrib/hbide/ideedit.prg
+++ b/harbour/contrib/hbide/ideedit.prg
@@ -2196,7 +2196,7 @@ METHOD IdeEdit:handlePreviousWord( lUpdatePrevWord )
       nL := len( cWord ) + nSpace
       nB := qCursor:position() - nL
 
-      IF ::oEditor:cExt $ ".prg,.hbs" .AND. ! ::oINI:lSupressHbKWordsToUpper
+      IF lower( ::oEditor:cExt ) $ ".prg,.hbs" .AND. ! ::oINI:lSupressHbKWordsToUpper
          qCursor:beginEditBlock()
          qCursor:setPosition( nB )
          qCursor:movePosition( QTextCursor_NextCharacter, QTextCursor_KeepAnchor, nL )