diff --git a/guix/build/syscalls.scm b/guix/build/syscalls.scm
index 549346c5f9..85c1c45f81 100644
--- a/guix/build/syscalls.scm
+++ b/guix/build/syscalls.scm
@@ -1248,12 +1248,12 @@ bytes."
 (define set-thread-name
   (if (string-contains %host-type "linux")
       set-thread-name!/linux
-      (cute const #f)))
+      (const #f)))
 
 (define thread-name
   (if (string-contains %host-type "linux")
       thread-name/linux
-      (cute const "")))
+      (const "")))
 
 
 ;;;