diff --git a/harbour/ChangeLog b/harbour/ChangeLog
index f3d89df701..c32f59205e 100644
--- a/harbour/ChangeLog
+++ b/harbour/ChangeLog
@@ -16,6 +16,10 @@
    The license applies to all entries newer than 2009-04-28.
 */
 
+2012-07-26 15:27 UTC-0800 Pritpal Bedi (bedipritpal@hotmail.com)
+  * contrib/hbide/uisrcmanager.prg
+    ! Fixed: a nasty bug, discovered by Guillermo Varona, thanks.
+
 2012-07-26 13:24 UTC-0800 Pritpal Bedi (bedipritpal@hotmail.com)
   * contrib/hbide/uisrcmanager.prg
     + Added: few more classes which are not derived from QObject.
diff --git a/harbour/contrib/hbide/uisrcmanager.prg b/harbour/contrib/hbide/uisrcmanager.prg
index fd8536b9b7..1cd7352f07 100644
--- a/harbour/contrib/hbide/uisrcmanager.prg
+++ b/harbour/contrib/hbide/uisrcmanager.prg
@@ -1048,7 +1048,7 @@ METHOD IdeUISrcManager:buildClassSkeleton( cCls, cUiName )
    aadd( aSrc, '' )
    aadd( aSrc, '   IF Left( cMsg, 2 ) == "Q_"' )
    aadd( aSrc, '      cMtd := SubStr( cMsg, 3 )' )
-   aadd( aSrc, '      IF __objHasMsg( ::oUI, cMtd' )
+   aadd( aSrc, '      IF __objHasMsg( ::oUI, cMtd )' )
    aadd( aSrc, '         RETURN ::oUI:&cMtd' )
    aadd( aSrc, '      ELSE' )
    aadd( aSrc, '         oError := ErrorNew()' )