diff --git a/collects/mzlib/file.ss b/collects/mzlib/file.ss
index c76f937..9959102 100644
--- a/collects/mzlib/file.ss
+++ b/collects/mzlib/file.ss
@@ -178,7 +178,7 @@
       (and (not dir?) (path? file) file)))
 
   (define (file-name-from-path name)
-    (file-name 'file-name-from-path))
+    (file-name 'file-name-from-path nam))
 
   (define (path-only name)
     (unless (path-string? name)