; some useful utilities

(define (host-name-or-empty addr)
      (with-fatal-error-handler
       (lambda (condition more)
	 "")
       (host-info:name (host-info addr))))