diff --git a/new-server.rkt b/new-server.rkt
index 86290f8..a966b9d 100644
--- a/new-server.rkt
+++ b/new-server.rkt
@@ -34,7 +34,7 @@
 		      [(topic 'publisher (tcp-channel remote-addr (== server-addr) _) #f)
 		       (transition state
 			 (spawn (session-vm server-addr remote-addr)
-				#:debug-name (list 'ssh-session-vm remote-addr)))]))))
+				#:debug-name (debug-name 'ssh-session-vm remote-addr)))]))))
 
 ;;---------------------------------------------------------------------------
 
@@ -208,7 +208,7 @@
     inert-exception-handler)
 
   (nested-vm
-   (list 'ssh-session-vm remote-addr)
+   (debug-name 'ssh-session-vm remote-addr)
    ;; TODO: use (not-yet-existing) macro variant of nested-vm to avoid
    ;; spuriously binding nested-boot-pid without blaming the wrong
    ;; process in case of error.