This patch adds a call to Tcl_DoOneEvent() in src/main.c
(needed for socket(n) and some other tcl commands)

-Tothwolf