Under Windows 2000 and Xp, 
(the same code has no probleme under linux)
i have a fonction wich create a socket like this

 let socket_acceuil = Unix.socket domain Unix.SOCK_STREAM 0 in
   Unix.bind socket_acceuil my_add_sock;
   Unix.listen socket_acceuil 1000;
   while true do
     message("Attente d un ami\n");
     let (s_servA,caller)=Unix.accept socket_acceuil in (
       message "ici" ;
       ignore ( Thread.create (reconnaitre_identite carnet s_servA) () )
     )
   done

when i do a telnet on this socket for testing the program stop 
the message "Attente d un ami" is printed" but "ici" is not printed
is there something special about Unix.accept under windows ?

ps:message simply do a printf and a flush