printf "%s started and listening on port %d\n" daemon_name port;
printf "current directory is %s\n" (Sys.getcwd ());
flush stdout;
-Http_daemon.start' ~port callback;
+let d_spec = Http_daemon.daemon_spec ~port ~callback ~auto_close:true () in
+Http_daemon.main d_spec;
printf "%s is terminating, bye!\n" daemon_name