diff --git a/harbour/ChangeLog b/harbour/ChangeLog
index 577aab533f..cd35715382 100644
--- a/harbour/ChangeLog
+++ b/harbour/ChangeLog
@@ -8,6 +8,10 @@
    2008-12-31 13:59 UTC+0100 Foo Bar <foo.bar@foobar.org>
 */
 
+2008-07-01 21:25 UTC+0200 Viktor Szakats (harbour.01 syenar hu)
+   * source/vm/extrap.c
+     ! Excluded GPF dumping code for Win64 and WinCE.
+
 2008-07-01 20:58 UTC+0200 Viktor Szakats (harbour.01 syenar hu)
    * source/rtl/hbinet.c
      % Recently added code fixed to use HB_ERR_FUNCNAME.
diff --git a/harbour/source/vm/extrap.c b/harbour/source/vm/extrap.c
index 5af534d702..de7ea17983 100644
--- a/harbour/source/vm/extrap.c
+++ b/harbour/source/vm/extrap.c
@@ -98,6 +98,15 @@ LONG WINAPI hb_win32ExceptionHandler( struct _EXCEPTION_POINTERS * pExceptionInf
       if( *hb_setGetCPtr( HB_SET_HBOUTLOGINFO ) )
          fprintf( hLog, HB_I_("Info: %s\n"), hb_setGetCPtr( HB_SET_HBOUTLOGINFO ) );
 
+#if defined(HB_WINCE)
+      {
+         /* TODO */
+      }
+#elif defined(HB_OS_WIN_64)
+      {
+         /* TODO */
+      }
+#else
       {
          char              buf[ 32 ];
          PEXCEPTION_RECORD pExceptionRecord = pExceptionInfo->ExceptionRecord;
@@ -173,6 +182,7 @@ LONG WINAPI hb_win32ExceptionHandler( struct _EXCEPTION_POINTERS * pExceptionInf
 
          fwrite( errmsg, sizeof( char ), strlen( errmsg ), hLog );
       }
+#endif
    }
 
    msg[ 0 ] = '\0';