--- bigloo4.1a/runtime/Llib/socket.scm	2014-02-15 08:33:40 -0500
+++ bigloo4.1a_mod/runtime/Llib/socket.scm	2014-02-15 08:34:11 -0500
@@ -532,18 +532,21 @@
 ;*    make-datagram-server-socket ...                                  */
 ;*---------------------------------------------------------------------*/
 (define-inline (make-datagram-server-socket #!optional (port 0))
-   ($make-datagram-server-socket port))
+  (%socket-init!)
+  ($make-datagram-server-socket port))
 
 ;*---------------------------------------------------------------------*/
 ;*    make-datagram-unbound-socket ...                                 */
 ;*---------------------------------------------------------------------*/
 (define-inline (make-datagram-unbound-socket #!optional (family::symbol 'inet))
-   ($make-datagram-unbound-socket family))
+  (%socket-init!) 
+  ($make-datagram-unbound-socket family))
 
 ;*---------------------------------------------------------------------*/
 ;*    make-datagram-client-socket ...                                  */
 ;*---------------------------------------------------------------------*/
 (define-inline (make-datagram-client-socket hostname port #!optional broadcast)
+  (%socket-init!)
    ($make-datagram-client-socket hostname port broadcast))
 
 ;*---------------------------------------------------------------------*/