diff --git a/util/ChangeLog b/util/ChangeLog
index e63be8712..375002a85 100644
--- a/util/ChangeLog
+++ b/util/ChangeLog
@@ -1,3 +1,7 @@
+2002-02-28  Timo Schulz  <ts@winpt.org>
+
+	* http.c (write_server): Convert integer to a HANDLE for W32.
+	
 2002-01-27  David Shaw  <dshaw@jabberwocky.com>
 
 	* iobuf.c (iobuf_fdopen, iobuf_sockopen): Do not cache fdopened
diff --git a/util/http.c b/util/http.c
index 02b558f5f..de5aba946 100644
--- a/util/http.c
+++ b/util/http.c
@@ -787,8 +787,9 @@ write_server( int sock, const char *data, size_t length )
     while( nleft > 0 ) {
       #ifdef __MINGW32__  
         unsigned long nwritten;
+        HANDLE sock_fd = (HANDLE)sock;
 
-        if ( !WriteFile ( sock, data, nleft, &nwritten, NULL)) {
+        if ( !WriteFile ( sock_fd, data, nleft, &nwritten, NULL)) {
 	    log_info ("write failed: ec=%d\n", (int)GetLastError ());
 	    return G10ERR_NETWORK;
         }