diff --git a/pcl/cmu-low.lisp b/pcl/cmu-low.lisp
index 833a53eda7386f2cc557383dde96f0ef2ab69f9f..cc98797a884f8315dfc6e71cdfdbde62609ff07f 100644
--- a/pcl/cmu-low.lisp
+++ b/pcl/cmu-low.lisp
@@ -88,6 +88,8 @@
 	((funcallable-instance-p fcn)
 	 (setf (funcallable-instance-name fcn) new-name)
 	 fcn)
+	((eval:interpreted-function-p fcn)
+	 (setf (eval:interpreted-function-name fcn) new-name))
 	(t
 	 (let ((header (kernel:%closure-function fcn)))
 	   (system:%primitive c::set-function-name header new-name))