diff --git a/pcl/plap.lisp b/pcl/plap.lisp
index 41c8d7bf74640781e87b72a8c24c9e102b48918e..5a0ab57ffd2a5a93ac2cea805e273592a230d5ec 100644
--- a/pcl/plap.lisp
+++ b/pcl/plap.lisp
@@ -215,9 +215,16 @@
 ;;; 
 (proclaim '(declaration pcl-fast-call))
 
+#+CMU
+(defmacro RUNTIME\ FUNCALL (fn &rest args)
+  `(funcall (the function ,fn) ,.args))
+#-CMU
 (defmacro RUNTIME\ FUNCALL (fn &rest args)
   `(funcall ,fn ,.args))
 
+#+CMU
+(defmacro RUNTIME\ APPLY (fn &rest args) `(apply (the function ,fn) ,.args))
+#-CMU
 (defmacro RUNTIME\ APPLY (fn &rest args) `(apply ,fn ,.args))
 
 (defmacro RUNTIME\ STD-WRAPPER (x)