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))))))