Version 0.1.3.

[guestfs-browser.git] / slave.ml

diff --git a/slave.ml b/slave.ml
index 8cf8199..01105ef 100644 (file)
--- a/slave.ml
+++ b/slave.ml
@@ -292,7 +292,7 @@ and execute_command = function
             dom_name = D.get_name d;
             dom_state = (D.get_info d).D.state }
       ) doms in
-      let cmp { dom_name = n1 } { dom_name = n2 } = compare n1 n2 in
+      let cmp { dom_name = n1 } { dom_name = n2 } = UTF8.compare n1 n2 in
       let doms = List.sort ~cmp doms in
 
       status "Connected to %s" printable_name;