diff --git a/gnu/services.scm b/gnu/services.scm
index cc2540ee50..2abef557d4 100644
--- a/gnu/services.scm
+++ b/gnu/services.scm
@@ -482,11 +482,8 @@ (define (provenance-file channels config-file)
 (define (provenance-entry config-file)
   "Return system entries describing the operating system provenance: the
 channels in use and CONFIG-FILE, if it is true."
-  (define profile
-    (current-profile))
-
   (define channels
-    (and=> profile profile-channels))
+    (current-channels))
 
   (mbegin %store-monad
     (let ((config-file (cond ((string? config-file)