From ccb31f4153d41a08c6fce32e014155ff9942fef9 Mon Sep 17 00:00:00 2001
From: Matthew Flatt <mflatt@racket-lang.org>
Date: Tue, 13 Aug 2013 09:56:36 -0600
Subject: [PATCH] fix name handling in `tar-gzip'

---
 racket/collects/file/tar.rkt | 3 ++-
 1 file changed, 2 insertions(+), 1 deletion(-)

diff --git a/racket/collects/file/tar.rkt b/racket/collects/file/tar.rkt
index deddf52067..09914c3d35 100644
--- a/racket/collects/file/tar.rkt
+++ b/racket/collects/file/tar.rkt
@@ -165,5 +165,6 @@
          (cond [(regexp-match #rx"^(.*[.])(?:tar[.]gz|tgz)$"
                               (if (path? tgz-file)
                                 (path->string tgz-file) tgz-file))
-                => (lambda (m) (string-append (car m) "tar"))])
+                => (lambda (m) (string-append (car m) "tar"))]
+               [else #f])
          (current-seconds))))))