diff -r 37ac9618bc06 ocaml/xapi/workload_balancing.ml
--- a/ocaml/xapi/workload_balancing.ml	Fri Apr 23 13:57:52 2010 +0100
+++ b/ocaml/xapi/workload_balancing.ml	Fri Apr 23 15:43:52 2010 +0100
@@ -305,6 +305,7 @@
           match error_msg with
           | "Connection refused" -> 
             raise_connection_refused ()
+          | "No route to host"
           | "No host resolved" -> 
             raise_unknown_host ()
           | "Invalid argument" ->