diff --git a/harbour/ChangeLog b/harbour/ChangeLog
index 86c3df1abb..159fb4d0fd 100644
--- a/harbour/ChangeLog
+++ b/harbour/ChangeLog
@@ -17,6 +17,10 @@
    past entries belonging to author(s): Viktor Szakats.
 */
 
+2009-06-09 10:54 UTC+0200 Przemyslaw Czerpak (druzus/at/priv.onet.pl)
+  * harbour/source/rtl/do.c
+    ! fixed mistake in previous commit
+
 2009-06-09 10:38 UTC+0200 Przemyslaw Czerpak (druzus/at/priv.onet.pl)
   * harbour/source/vm/eval.c
     * update number of parameters in HB_EXECMSG() to keep the HVM stack
diff --git a/harbour/source/rtl/do.c b/harbour/source/rtl/do.c
index 9918171a79..14d45bab87 100644
--- a/harbour/source/rtl/do.c
+++ b/harbour/source/rtl/do.c
@@ -66,10 +66,11 @@
 HB_FUNC( DO )
 {
    USHORT uiPCount = ( USHORT ) hb_pcount();
+   PHB_ITEM pSelf = NULL;
 
    if( uiPCount > 0 )
    {
-      PHB_ITEM pItem = hb_param( 1, HB_IT_ANY ), pSelf = NULL;
+      PHB_ITEM pItem = hb_param( 1, HB_IT_ANY );
 
       if( HB_IS_STRING( pItem ) )
       {