diff --git a/Assistant/NamedThread.hs b/Assistant/NamedThread.hs
index 0a090d0d24..33af2c3040 100644
--- a/Assistant/NamedThread.hs
+++ b/Assistant/NamedThread.hs
@@ -64,7 +64,7 @@ startNamedThread urlrenderer namedthread@(NamedThread name a) = do
 			Right _ -> noop
 			Left e -> do
 				let msg = unwords
-					[ fromThreadName name
+					[ fromThreadName $ threadName d
 					, "crashed:", show e
 					]
 				hPutStrLn stderr msg