fix handling of global_pax_header

diff --git a/extra/tar/tar.factor b/extra/tar/tar.factor
index 50d3f2559364e2b117cbf17ff26e73b7f5c7e05a..297157c08bd88248d8d2bd71c8b1a6549ef90b8b 100755 (executable)
--- 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 ;