diff --git a/harbour/ChangeLog b/harbour/ChangeLog
index 54a66251d4..605929ada8 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-09-22 15:23 UTC+0200 Przemyslaw Czerpak (druzus/at/priv.onet.pl)
+  * harbour/source/rtl/hbinet.c
+    ! fixed W32 compilation
+
 2008-09-21 20:29 UTC-0800 Pritpal Bedi (pritpal@vouchcac.com)
   * harbour/contrib/hbwhat/*.c;*.prg
     ! Prefixed every WHAT specific functions with "WHT_" and 
diff --git a/harbour/source/rtl/hbinet.c b/harbour/source/rtl/hbinet.c
index 2b3471be3c..37e107d4d4 100644
--- a/harbour/source/rtl/hbinet.c
+++ b/harbour/source/rtl/hbinet.c
@@ -345,25 +345,27 @@ static struct hostent * hb_getHosts( char * name, HB_SOCKET_STRUCT *Socket )
 {
    struct hostent *Host = NULL;
 
-   /* TOFIX: make it MT safe */
-
    hb_vmUnlock();
 
+   /* TOFIX: make it MT safe */
+
    /* let's see if name is an IP address; not necessary on Linux */
 #if defined(HB_OS_WIN_32) || defined(HB_OS_OS2)
-   ULONG ulAddr;
+   {
+      ULONG ulAddr;
 
-   ulAddr = inet_addr( name );
-   if( ulAddr == INADDR_NONE )
-   {
-      if( strcmp( "255.255.255.255", name ) == 0 )
+      ulAddr = inet_addr( name );
+      if( ulAddr == INADDR_NONE )
       {
-         Host = gethostbyaddr( (const char*) &ulAddr, sizeof( ulAddr ), AF_INET );
+         if( strcmp( "255.255.255.255", name ) == 0 )
+         {
+            Host = gethostbyaddr( (const char*) &ulAddr, sizeof( ulAddr ), AF_INET );
+         }
+      }
+      else
+      {
+         Host = gethostbyaddr( (const char*)  &ulAddr, sizeof( ulAddr ), AF_INET );
       }
-   }
-   else
-   {
-      Host = gethostbyaddr( (const char*)  &ulAddr, sizeof( ulAddr ), AF_INET );
    }
 #endif