*** tar-mode.el	14 Jan 2009 07:53:50 +1100	1.136
--- tar-mode.el	16 Jan 2009 11:10:21 +1100	
***************
*** 1053,1060 ****
                 (string-match "/" encoded-new-name
  			     (- (length encoded-new-name) 99))
  	       (< (match-beginning 0) 155))
!       (unless (equal (tar-header-magic descriptor) "ustar\0\0")
!         (tar-alter-one-field tar-magic-offset "ustar\0\0"))
        (setq prefix (substring encoded-new-name 0 (match-beginning 0)))
        (setq encoded-new-name (substring encoded-new-name (match-end 0))))
  
--- 1053,1060 ----
                 (string-match "/" encoded-new-name
  			     (- (length encoded-new-name) 99))
  	       (< (match-beginning 0) 155))
!       (unless (equal (tar-header-magic descriptor) "ustar\0")
!         (tar-alter-one-field tar-magic-offset "ustar\0\060\060"))
        (setq prefix (substring encoded-new-name 0 (match-beginning 0)))
        (setq encoded-new-name (substring encoded-new-name (match-end 0))))