diff --git a/harbour/ChangeLog b/harbour/ChangeLog
index 1a8135240a..c180fb38d4 100644
--- a/harbour/ChangeLog
+++ b/harbour/ChangeLog
@@ -1,3 +1,7 @@
+2001-04-25 17:51 GMT-3 Horacio Roldan <horacioroldan@usa.net>
+   *source/rdd/workarea.c
+     * patched GPF using valResult.
+
 2001-04-25 20:08 GMT+1 Antonio Linares <alinares@fivetech.com>
    * source/vm/debug.c
       ! __VMPARLLIST( <nProcLevel> ) enhanced to accept a nProcLevel.
diff --git a/harbour/source/rdd/workarea.c b/harbour/source/rdd/workarea.c
index c1b49d86b9..a794d63a65 100644
--- a/harbour/source/rdd/workarea.c
+++ b/harbour/source/rdd/workarea.c
@@ -968,6 +968,9 @@ ERRCODE hb_waCompile( AREAP pArea, BYTE * pExpr )
    pMacro = hb_macroCompile( ( char * ) pExpr );
    if( pMacro )
    {
+      if( ! pArea->valResult )
+         pArea->valResult = hb_itemNew( NULL );
+
       pArea->valResult = hb_itemPutPtr( pArea->valResult, ( void * ) pMacro );
       return SUCCESS;
    }
@@ -1002,6 +1005,9 @@ ERRCODE hb_waEvalBlock( AREAP pArea, PHB_ITEM pBlock )
 {
    HB_TRACE(HB_TR_DEBUG, ("hb_waEvalBlock(%p, %p)", pArea, pBlock));
 
+   if( ! pArea->valResult )
+      pArea->valResult = hb_itemNew( NULL );
+
    hb_itemCopy( pArea->valResult, hb_vmEvalBlock( pBlock ) );
    return SUCCESS;
-}
+}
\ No newline at end of file