From ed31184fa5219d92fe0d84179d0f92f1b15b8436 Mon Sep 17 00:00:00 2001
From: Matthew Flatt <mflatt@racket-lang.org>
Date: Mon, 11 Oct 2004 16:46:38 +0000
Subject: [PATCH] .

original commit: 751b42b968ff1e58f6d60557d61024af28734350
---
 collects/mzlib/file.ss | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/collects/mzlib/file.ss b/collects/mzlib/file.ss
index 503dd7e..191e08e 100644
--- a/collects/mzlib/file.ss
+++ b/collects/mzlib/file.ss
@@ -190,7 +190,7 @@
       (let ([name (if (string? name)
 		      name
 		      (path->bytes name))])
-	(let ([m (regexp-match #rx#"[.](.+)$" name)])
+	(let ([m (regexp-match #rx#"[.]([^.]+)$" name)])
 	  (and m
 	       (cadr m))))))