diff --git a/harbour/ChangeLog b/harbour/ChangeLog
index 1f35091b41..5a9f0e2181 100644
--- a/harbour/ChangeLog
+++ b/harbour/ChangeLog
@@ -8,6 +8,10 @@
    2009-12-31 13:59 UTC+0100 Foo Bar (foo.bar foobar.org)
 */
 
+2009-03-05 12:48 UTC+0100 Przemyslaw Czerpak (druzus/at/priv.onet.pl)
+  * harbour/source/rtl/hbgtcore.c
+    * small modification in instruction order as workaround for PellesC bug
+
 2009-03-05 12:04 UTC+0100 Przemyslaw Czerpak (druzus/at/priv.onet.pl)
   * harbour/source/vm/memvars.c
     ! added protection against pushing new private variable on HVM stack
diff --git a/harbour/source/rtl/hbgtcore.c b/harbour/source/rtl/hbgtcore.c
index 9a156e17a7..e9291a6925 100644
--- a/harbour/source/rtl/hbgtcore.c
+++ b/harbour/source/rtl/hbgtcore.c
@@ -3389,15 +3389,13 @@ static void * hb_gtParam( int iParam )
 PHB_GT hb_gt_ItemBase( PHB_ITEM pItemGT )
 {
    void ** gtHolder = ( void ** ) hb_itemGetPtrGC( pItemGT, hb_gt_Destructor );
-   PHB_GT pGT = NULL;
-
-   if( gtHolder )
-      pGT = ( PHB_GT ) *gtHolder;
-
-   if( pGT && HB_GTSELF_LOCK( pGT ) )
-      return pGT;
-   else
-      return NULL;
+   if( gtHolder && *gtHolder )
+   {
+      PHB_GT pGT = ( PHB_GT ) *gtHolder;
+      if( HB_GTSELF_LOCK( pGT ) )
+         return pGT;
+   }
+   return NULL;
 }
 
 HB_FUNC( HB_GTRELOAD )