diff --git a/src/lint.lisp b/src/lint.lisp
index 13c3c3e..89a025e 100644
--- a/src/lint.lisp
+++ b/src/lint.lisp
@@ -714,7 +714,7 @@ for CONTENTS are a string or a list of strings."
 	       (error "A :HAS-NAME clause must have one argument."))
 	     (unless (stringp (first expr))
 	       (error "A :HAS-NAME clause must have a string agument."))
-	     (string= (first expr) (namestring pathname)))
+	     (string= (first expr) (file-namestring pathname)))
 	   (has-shebang (expr)
 	     (let ((first-line
 		     (first (read-file-into-list pathname))))