diff --git a/guix/scripts/system.scm b/guix/scripts/system.scm
index 443e9d3282..4bcf789703 100644
--- a/guix/scripts/system.scm
+++ b/guix/scripts/system.scm
@@ -41,6 +41,7 @@ (define-module (guix scripts system)
   #:use-module (guix grafts)
   #:use-module (guix gexp)
   #:use-module (guix derivations)
+  #:use-module (guix diagnostics)
   #:use-module (guix packages)
   #:use-module (guix utils)
   #:use-module (guix monads)
@@ -1257,7 +1258,10 @@ (define save-provenance?
                          (size image-size)
                          (volatile-root? volatile?)
                          (shared-network? shared-network?))))
-         (os          (image-operating-system image))
+         (os          (or (image-operating-system image)
+                          (raise
+                           (formatted-message
+                            (G_ "image lacks an operating-system")))))
          (target-file (match args
                         ((first second) second)
                         (_ #f)))