diff --git a/harbour/ChangeLog b/harbour/ChangeLog
index 651105f36a..7c07bf543b 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-03 08:48 UTC+0200 Viktor Szakats (harbour.01 syenar hu)
+   * contrib/hbtpathy/tpos2.c
+     ! Blind fix for three OS/2 warnings. David please test.
+
 2008-07-02 23:44 UTC+0200 Viktor Szakats (harbour.01 syenar hu)
    * source/rtl/gtwvt/gtwvt.c
      ! Removed unused variable.
diff --git a/harbour/contrib/hbtpathy/tpos2.c b/harbour/contrib/hbtpathy/tpos2.c
index 1bbda11b68..9074de20e1 100644
--- a/harbour/contrib/hbtpathy/tpos2.c
+++ b/harbour/contrib/hbtpathy/tpos2.c
@@ -69,7 +69,6 @@
 
 HB_FUNC( P_INITPORTSPEED )
 {
-   APIRET rc;
    LINECONTROL lctl;
    DCBINFO dcb;
    USHORT Baud = ( USHORT ) hb_parnl( 2 );
@@ -154,13 +153,15 @@ HB_FUNC( P_WRITEPORT )
    ULONG nWritten = 0;
    APIRET rc = DosWrite( ( HFILE ) hb_parnl( 1 ), hb_parcx( 2 ), hb_parclen( 2 ), &nWritten );
 
-   hb_retnl( rc == NO_ERROR ? nWritten : -1 ); /* Put GetLastError() on error, or better a second byref param? */
+   hb_retnl( rc == NO_ERROR ? ( long ) nWritten : -1 ); /* Put GetLastError() on error, or better a second byref param? */
 }
 
 HB_FUNC( P_OUTFREE )
 {
    APIRET rc;
-   RXQUEUE rxqueue = { 0 };
+   RXQUEUE rxqueue;
+
+   memset( &rxqueue, 0, sizeof( rxqueue ) );
 
    if( ( rc = DosDevIOCtl( ( HFILE ) hb_parnl( 1 ), IOCTL_ASYNC, ASYNC_GETOUTQUECOUNT,
                            NULL, 0L, NULL, &rxqueue, sizeof(RXQUEUE), NULL ) ) == NO_ERROR )