diff --git a/harbour/ChangeLog b/harbour/ChangeLog
index 94f5b58a23..f93787e427 100644
--- a/harbour/ChangeLog
+++ b/harbour/ChangeLog
@@ -1,3 +1,12 @@
+20000319-01:30 EST Paul Tucker <ptucker@sympatico.ca>
+   * source/pp/ppcore.c
+     * Assign NULL to stdef->pars and value when item undef'ed
+     * Question: Why isn't this stuct removed from the list as well?
+   * source/compiler/harbour.y
+     * make hb_comp_szAnnounce non static
+   * source/compiler/harbour.c
+     * assign NULL to hb_comp_szAnnounce in hb_compInitVars()
+
 20000319-01:10 EST Paul Tucker <ptucker@sympatico.ca>
    * contrib/rdd_ads/ads1.c
      * added cast in strlen() (forgot to post previously)
diff --git a/harbour/source/compiler/harbour.c b/harbour/source/compiler/harbour.c
index 55aa8f9bda..857d6c00af 100644
--- a/harbour/source/compiler/harbour.c
+++ b/harbour/source/compiler/harbour.c
@@ -113,6 +113,7 @@ BOOL        hb_comp_bLogo = TRUE;                      /* print logo */
 BOOL        hb_comp_bSyntaxCheckOnly = FALSE;          /* syntax check only */
 int         hb_comp_iLanguage = LANG_C;                /* default Harbour generated output language */
 
+extern      char * hb_comp_szAnnounce;
 typedef struct __EXTERN
 {
    char * szName;
@@ -2231,7 +2232,7 @@ static void hb_compInitVars( void )
    hb_comp_symbols.iCount   = 0;
    hb_comp_symbols.pFirst   = NULL;
    hb_comp_symbols.pLast    = NULL;
-
+   hb_comp_szAnnounce       = NULL;
    hb_comp_pInitFunc = NULL;
    hb_comp_bAnyWarning = FALSE;
 
diff --git a/harbour/source/compiler/harbour.y b/harbour/source/compiler/harbour.y
index bc16ff39f2..06a87dd365 100644
--- a/harbour/source/compiler/harbour.y
+++ b/harbour/source/compiler/harbour.y
@@ -130,7 +130,7 @@ char *hb_comp_buffer; /* yacc input buffer */
 static PTR_LOOPEXIT hb_comp_pLoops = NULL;
 static HB_RTVAR_PTR hb_comp_rtvars = NULL;
 
-static char * hb_comp_szAnnounce = NULL;    /* ANNOUNCEd procedure */
+char * hb_comp_szAnnounce = NULL;    /* ANNOUNCEd procedure */
 
 %}