diff --git a/extra/tools/threads/threads.factor b/extra/tools/threads/threads.factor
index 03ea31034e..0d924733c4 100755
--- a/extra/tools/threads/threads.factor
+++ b/extra/tools/threads/threads.factor
@@ -6,9 +6,8 @@ io io.styles sequences assocs namespaces sorting boxes ;
 
 : thread. ( thread -- )
     dup thread-id pprint-cell
-    dup thread-name pprint-cell
-    thread-state "running" or
-    [ write ] with-cell ;
+    dup thread-name over [ write-object ] with-cell
+    thread-state "running" or [ write ] with-cell ;
 
 : threads. ( -- )
     standard-table-style [