diff --git a/gnu/system/image.scm b/gnu/system/image.scm
index 2eec6fcbab2..5fc0d55d9a1 100644
--- a/gnu/system/image.scm
+++ b/gnu/system/image.scm
@@ -715,10 +715,11 @@ output file."
                                #:substitutable? ,substitutable?))))
 
 
-;;
-;; Tarball image.
-;;
+;;;
+;;; Tarball image.
+;;;
 
+;; TODO: Some bits can be factorized with (guix scripts pack).
 (define* (system-tarball-image image
                                #:key
                                (name "image")