- Tcl_CreateObjCommand(ip,"hbytes", pa__hbytes,0,0);
+ Tcl_RegisterObjType(&sockaddr_type);
+ Tcl_RegisterObjType(&sockid_type);
+ Tcl_CreateObjCommand(ip, "hbytes", pa__hbytes, 0,0);
+ Tcl_CreateObjCommand(ip, "dgram-socket", pa__dgram_socket, 0,0);