Index: common.scm
==================================================================
--- common.scm
+++ common.scm
@@ -2151,22 +2151,10 @@
 
 ;; ;;======================================================================
 ;; ;; N A N O M S G   C L I E N T
 ;; ;;======================================================================
 ;; 
-;; (define (server:get-best-guess-address hostname)
-;;   (let ((res #f))
-;;     (for-each 
-;;      (lambda (adr)
-;;        (if (not (eq? (u8vector-ref adr 0) 127))
-;; 	   (set! res adr)))
-;;      ;; NOTE: This can fail when there is no mention of the host in /etc/hosts. FIXME
-;;      (vector->list (hostinfo-addresses (hostname->hostinfo hostname))))
-;;     (string-intersperse 
-;;      (map number->string
-;; 	  (u8vector->list
-;; 	   (if res res (hostname->ip hostname)))) ".")))
 ;; 
 ;; 
 ;; (define (common:send-dboard-main-changed)
 ;;   (let* ((dashboard-ips (mddb:get-dashboards)))
 ;;     (for-each

Index: server.scm
==================================================================
--- server.scm
+++ server.scm
@@ -432,5 +432,18 @@
 	;; (* 3 24 60 60) ;; default to three days
 	;;(* 60 60 1)     ;; default to one hour
 	(* 60 5)          ;; default to five minutes
 	)))
 
+(define (server:get-best-guess-address hostname)
+  (let ((res #f))
+    (for-each 
+     (lambda (adr)
+       (if (not (eq? (u8vector-ref adr 0) 127))
+	   (set! res adr)))
+     ;; NOTE: This can fail when there is no mention of the host in /etc/hosts. FIXME
+     (vector->list (hostinfo-addresses (hostname->hostinfo hostname))))
+    (string-intersperse 
+     (map number->string
+	  (u8vector->list
+	   (if res res (hostname->ip hostname)))) ".")))
+