--- a/src/code/symbol.lisp
+++ b/src/code/symbol.lisp
@@ -80,7 +80,7 @@
 (defun symbol-function (symbol)
   #!+sb-doc
   "Return SYMBOL's current function definition. Settable with SETF."
-  (!coerce-name-to-fun symbol-fdefinition symbol))
+  (!coerce-name-to-fun symbol-fdefn symbol))
 
 (defun (setf symbol-function) (new-value symbol)
   (declare (type symbol symbol) (type function new-value))