.

original commit: af55da650cc28c688a50c53ab34ed354c338d4f1
2004-04-13 22:14:42 +00:00 · 2004-04-13 22:14:42 +00:00 · be718d5973
commit be718d5973
parent fdfb67433d
1 changed files with 1 additions and 1 deletions
--- 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#".(.?)$")])
+	(let ([m (regexp-match #rx#".(.?)$" name)])
 	  (and m
 	       (cadr m))))))