--- a/guix/build/syscalls.scm.orig	2019-05-15 15:43:04.000000000 +0200
+++ b/guix/build/syscalls.scm	2019-09-03 13:45:36.000000000 +0200
@@ -1086,18 +1086,19 @@
   ;; zero.
   16)
 
-(define (set-thread-name name)
-  "Set the name of the calling thread to NAME.  NAME is truncated to 15
-bytes."
-  (let ((ptr (string->pointer name)))
-    (let-values (((ret err)
-                  (%prctl PR_SET_NAME
-                          (pointer-address ptr) 0 0 0)))
-      (unless (zero? ret)
-        (throw 'set-process-name "set-process-name"
-               "set-process-name: ~A"
-               (list (strerror err))
-               (list err))))))
+(define (set-thread-name name) #t)
+;; (define (set-thread-name name)
+;;   "Set the name of the calling thread to NAME.  NAME is truncated to 15
+;; bytes."
+;;   (let ((ptr (string->pointer name)))
+;;     (let-values (((ret err)
+;;                   (%prctl PR_SET_NAME
+;;                           (pointer-address ptr) 0 0 0)))
+;;       (unless (zero? ret)
+;;         (throw 'set-process-name "set-process-name"
+;;                "set-process-name: ~A"
+;;                (list (strerror err))
+;;                (list err))))))
 
 (define (thread-name)
   "Return the name of the calling thread as a string."