diff --git a/src/daemon.rkt b/src/daemon.rkt
index 9ccd093..8368f1b 100644
--- a/src/daemon.rkt
+++ b/src/daemon.rkt
@@ -6,19 +6,21 @@
 (require (only-in racket/exn exn->string))
 
 (define (daemonize-thunk name boot-thunk)
-  (lambda ()
-    (let reboot ()
-      ;; We would catch exn:fail? here, but exn:pretty in the web
-      ;; server is a subtype of exn, not of exn:fail, and that causes
-      ;; spurious permanent daemon exits.
-      (with-handlers* ((exn? (lambda (e)
-                               (log-error "*** DAEMON CRASHED: ~a ***\n~a"
-                                          name
-                                          (exn->string e))
-                               (sleep 5)
-                               (reboot))))
-        (define result (boot-thunk))
-        (log-warning "Daemon thread ~a exited normally (returning ~v)" name result)))))
+  (procedure-rename
+   (lambda ()
+     (let reboot ()
+       ;; We would catch exn:fail? here, but exn:pretty in the web
+       ;; server is a subtype of exn, not of exn:fail, and that causes
+       ;; spurious permanent daemon exits.
+       (with-handlers* ((exn? (lambda (e)
+                                (log-error "*** DAEMON CRASHED: ~a ***\n~a"
+                                           name
+                                           (exn->string e))
+                                (sleep 5)
+                                (reboot))))
+         (define result (boot-thunk))
+         (log-warning "Daemon thread ~a exited normally (returning ~v)" name result))))
+   (string->symbol (format "~v" name))))
 
 (define (daemon-thread name boot-thunk)
   (thread (daemonize-thunk name boot-thunk)))
diff --git a/src/packages.rkt b/src/packages.rkt
index 4035ff2..bc7e005 100644
--- a/src/packages.rkt
+++ b/src/packages.rkt
@@ -73,9 +73,12 @@
   (eq? pkg 'tombstone))
 
 (define (asynchronously-fetch-remote-packages state)
-  (thread (lambda ()
-            (define raw-remote-packages (fetch-remote-packages))
-            (manager-rpc 'refresh-packages! raw-remote-packages)))
+  (thread
+   (procedure-rename
+    (lambda ()
+      (define raw-remote-packages (fetch-remote-packages))
+      (manager-rpc 'refresh-packages! raw-remote-packages))
+    (string->symbol (format "~v" (list 'asynchronously-fetch-remote-packages (current-inexact-milliseconds))))))
   (struct-copy package-manager-state state
                [next-fetch-deadline (+ (current-inexact-milliseconds) package-fetch-interval)]))
 
diff --git a/src/static.rkt b/src/static.rkt
index 4251b2e..9399be5 100644
--- a/src/static.rkt
+++ b/src/static.rkt
@@ -173,12 +173,14 @@
 (define (put/bytes^ p cb mt h)
   (semaphore-wait put-bytes-sema)
   (thread
-   (lambda ()
-     (with-handlers ((values (lambda (e)
-                               (semaphore-post put-bytes-sema)
-                               (raise e))))
-       (put/bytes p cb mt h)
-       (semaphore-post put-bytes-sema)))))
+   (procedure-rename
+    (lambda ()
+      (with-handlers ((values (lambda (e)
+                                (semaphore-post put-bytes-sema)
+                                (raise e))))
+        (put/bytes p cb mt h)
+        (semaphore-post put-bytes-sema)))
+    (string->symbol (format "~v" (list 'put/bytes^ p))))))
 
 (define (aws-put-file! index absolute-path content-bytes mime-type [headers '()])
   (define relative-path (absolute-path->relative-path absolute-path))