diff --git a/extra/tar/tar.factor b/extra/tar/tar.factor
index e83908b002..50d3f25593 100755
--- a/extra/tar/tar.factor
+++ b/extra/tar/tar.factor
@@ -71,8 +71,9 @@ ERROR: checksum-error ;
     ] if ;
 
 ERROR: unknown-typeflag ch ;
+
 M: unknown-typeflag summary ( obj -- str )
-    ch>> "Unknown typeflag: " prefix ;
+    ch>> [ "Unknown typeflag: " ] dip prefix ;
 
 : read/write-blocks ( tar-header path -- )
     binary [ read-data-blocks ] with-file-writer ;