diff --git a/builder/builder.ml b/builder/builder.ml
index 3d39005a7..5ea69c02b 100644
--- a/builder/builder.ml
+++ b/builder/builder.ml
@@ -97,7 +97,7 @@ let main () =
     | `Delete_cache ->                  (* --delete-cache *)
       (match cache with
       | Some cachedir ->
-        message "Deleting: %s" cachedir;
+        message (f_"Deleting: %s") cachedir;
         Cache.clean_cachedir cachedir;
         exit 0
       | None ->
diff --git a/sysprep/sysprep_operation.ml b/sysprep/sysprep_operation.ml
index 5ead3cea7..5bc1efab1 100644
--- a/sysprep/sysprep_operation.ml
+++ b/sysprep/sysprep_operation.ml
@@ -285,7 +285,7 @@ let perform_operations_on_filesystems ?operations g root
   List.iter (
     function
     | { name = name; perform_on_filesystems = Some fn } ->
-      message "Performing %S ..." name;
+      message (f_"Performing %S ...") name;
       fn g root side_effects
     | { perform_on_filesystems = None } -> ()
   ) ops
@@ -306,7 +306,7 @@ let perform_operations_on_devices ?operations g root
   List.iter (
     function
     | { name = name; perform_on_devices = Some fn } ->
-      message "Performing %S ..." name;
+      message (f_"Performing %S ...") name;
       fn g root side_effects
     | { perform_on_devices = None } -> ()
   ) ops