Internationalize virt-top.

[virt-top.git] / virt-top / virt_top_main.ml

diff --git a/virt-top/virt_top_main.ml b/virt-top/virt_top_main.ml
old mode 100755 (executable)
new mode 100644 (file)
index ba98e7e..4ab60ad
--- a/virt-top/virt_top_main.ml
+++ b/virt-top/virt_top_main.ml
@@ -21,6 +21,7 @@
 
 open Curses
 
+open Virt_top_gettext.Gettext
 open Virt_top
 
 (* Note: make sure we catch any exceptions and clean up the display.
@@ -43,7 +44,7 @@ let error =
       true
   | exn ->
       if not script_mode then endwin ();
-      prerr_endline ("Error: " ^ Printexc.to_string exn);
+      prerr_endline (s_ "Error" ^ ": " ^ Printexc.to_string exn);
       true
 
 let () =