diff --git a/sys/defsystem.lisp b/sys/defsystem.lisp
index 5222b471ea7732f6ede4b21e9029cbdc9dc7db75..9a4e3b1228f05c319a0610ff1a159c4f0212fd1c 100644
--- a/sys/defsystem.lisp
+++ b/sys/defsystem.lisp
@@ -491,7 +491,7 @@ Something is wrong if this warning appears!"))
   #+xerox (pathname *standard-input*)
   #+Genera sys:fdefine-file-pathname
   #+Minima *load-pathname*
-  #+ansi-cl *load-pathanme*
+  #+ansi-cl *load-pathname*
   #-(or Lucid Allegro xerox Genera Minima ansi-cl) nil)
 
 (defvar *current-system* nil