diff --git a/guix-data-service/model/derivation.scm b/guix-data-service/model/derivation.scm
index 9b88fc1..fddf0e3 100644
--- a/guix-data-service/model/derivation.scm
+++ b/guix-data-service/model/derivation.scm
@@ -1370,10 +1370,10 @@ INNER JOIN derivation_outputs
   ON derivation_outputs.derivation_id = derivations.id
  AND vals.output_name = derivation_outputs.name")))))
 
-  (chunk-map! process-chunk
-              1000
-              (list-copy derivation-ids)
-              (list-copy derivations)))
+  (chunk-for-each! process-chunk
+                   1000
+                   (list-copy derivation-ids)
+                   (list-copy derivations)))
 
 (define (select-from-derivation-source-files store-paths)
   (string-append
diff --git a/guix-data-service/utils.scm b/guix-data-service/utils.scm
index 483f3ee..14721b1 100644
--- a/guix-data-service/utils.scm
+++ b/guix-data-service/utils.scm
@@ -33,7 +33,7 @@
 
             chunk
             chunk!
-            chunk-map!))
+            chunk-for-each!))
 
 (define (call-with-time-logging action thunk)
   (simple-format #t "debug: Starting ~A\n" action)
@@ -177,7 +177,7 @@
                 (chunk! rest max-length))))
       (list lst)))
 
-(define* (chunk-map! proc chunk-size #:rest lsts)
+(define* (chunk-for-each! proc chunk-size #:rest lsts)
   (define (do-one-iteration lsts)
     (if (> (length (car lsts))
            chunk-size)