diff --git a/extra/tar/tar.factor b/extra/tar/tar.factor
index 50d3f25593..297157c08b 100755
--- a/extra/tar/tar.factor
+++ b/extra/tar/tar.factor
@@ -83,8 +83,8 @@ M: unknown-typeflag summary ( obj -- str )
 
 ! Normal file
 : typeflag-0 ( header -- )
-    dup name>> dup global_pax_header = [
-        [ read-data-blocks ] with-string-writer drop
+    dup name>> dup "global_pax_header" = [
+        drop [ read-data-blocks ] with-string-writer drop
     ] [
         prepend-current-directory read/write-blocks
     ] if ;