diff --git a/harbour/ChangeLog b/harbour/ChangeLog
index 0cf50ec88e..bf122d399f 100644
--- a/harbour/ChangeLog
+++ b/harbour/ChangeLog
@@ -8,6 +8,14 @@
    2008-12-31 13:59 UTC+0100 Foo Bar (foo.bar foobar.org)
 */
 
+2008-08-26 22:23 UTC+0200 Viktor Szakats (harbour.01 syenar hu)
+   * contrib/hbct/atnum.c
+     ! Workaround for PelleC 5.00.1 bug in AMD64 mode.
+       'fatal error: Internal error: reduce_tree()'
+       I didn't test if it actually works, but at least now 
+       is compiles.
+       Bug reported on Pelles C forum.
+
 2008-08-26 22:13 UTC+0200 Viktor Szakats (harbour.01 syenar hu)
    * source/common/hbver.c
      * hb_verCompiler() buffer size cleanup.
diff --git a/harbour/contrib/hbct/atnum.c b/harbour/contrib/hbct/atnum.c
index afe8d4cc4e..5f5cb8b619 100644
--- a/harbour/contrib/hbct/atnum.c
+++ b/harbour/contrib/hbct/atnum.c
@@ -251,7 +251,11 @@ static void do_atnum( int iSwitch )
 
          case DO_ATNUM_ATNUM:
             /* ATNUM */
+#if (__POCC__ >= 500) && defined(HB_OS_WIN_64)
+            hb_retnl( pc - pcString + sIgnore + 1 );
+#else
             hb_retnl( pc - ( pcString - sIgnore ) + 1 );
+#endif
             break;
       }
    }