From 5fb3589a1488d5d3a16ee2f889bc17f45c478ae0 Mon Sep 17 00:00:00 2001
From: Przemyslaw Czerpak <druzus@priv.onet.pl>
Date: Tue, 9 Jun 2009 08:44:55 +0000
Subject: [PATCH] 2009-06-09 10:54 UTC+0200 Przemyslaw Czerpak
 (druzus/at/priv.onet.pl)   * harbour/source/rtl/do.c     ! fixed mistake in
 previous commit

---
 harbour/ChangeLog       | 4 ++++
 harbour/source/rtl/do.c | 3 ++-
 2 files changed, 6 insertions(+), 1 deletion(-)

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 ) )
       {