From 570577cca0d081e6474ce82f602aa656fe455389 Mon Sep 17 00:00:00 2001
From: Doug Coleman <doug.coleman@gmail.com>
Date: Mon, 19 Jan 2009 22:26:46 -0600
Subject: [PATCH] fix tar

---
 extra/tar/tar.factor | 3 +++
 1 file changed, 3 insertions(+)

diff --git a/extra/tar/tar.factor b/extra/tar/tar.factor
index 5720c09ed9..bccaeb0103 100755
--- a/extra/tar/tar.factor
+++ b/extra/tar/tar.factor
@@ -16,6 +16,9 @@ SYMBOLS: base-dir filename ;
 
 : tar-trim ( seq -- newseq ) [ "\0 " member? ] trim ;
 
+: read-c-string* ( n -- str/f )
+    read [ zero? ] trim-right [ f ] when-empty ;
+
 : read-tar-header ( -- obj )
     \ tar-header new
     100 read-c-string* >>name