diff --git a/harbour/ChangeLog b/harbour/ChangeLog
index c887edf83e..b773903757 100644
--- a/harbour/ChangeLog
+++ b/harbour/ChangeLog
@@ -8,6 +8,11 @@
    2002-12-01 13:30 UTC+0100 Foo Bar <foo.bar@foobar.org>
 */ 
    * source/pp/ppcore.c
+      * fixed calls to hb_pp_ParseDirective
+      * increased back the input buffer to HB_PP_STR_SIZE (12288 bytes)
+      
+
+2006-03-29 11:55 UTC+0100 Ryszard Glab <rglab//imid.med.pl>
       
       *fixed declaration of hb_pp_StreamBlock
 
diff --git a/harbour/source/compiler/harbour.c b/harbour/source/compiler/harbour.c
index 630026211c..db266a55e5 100644
--- a/harbour/source/compiler/harbour.c
+++ b/harbour/source/compiler/harbour.c
@@ -4848,7 +4848,7 @@ int hb_compCompile( char * szPrg, int argc, char * argv[] )
             /* Generate the starting procedure frame */
             if( hb_comp_bStartProc )
             {
-               hb_compFunctionAdd( hb_compIdentifierNew( hb_comp_pFileName->szName, TRUE ), HB_FS_PUBLIC, FUN_PROCEDURE );
+               hb_compFunctionAdd( hb_strupr( hb_strdup( hb_compIdentifierNew( hb_comp_pFileName->szName, FALSE ) ) ), HB_FS_PUBLIC, FUN_PROCEDURE );
             }
             else
             {