diff --git a/compiler/rt/c-call.lisp b/compiler/rt/c-call.lisp
index 9b09440405dff15f373a9adb27550227b43342f8..e893edd3e270d81f7bc8b76a59fb78fb54fd1c11 100644
--- a/compiler/rt/c-call.lisp
+++ b/compiler/rt/c-call.lisp
@@ -7,7 +7,7 @@
 ;;; Lisp, please contact Scott Fahlman (Scott.Fahlman@CS.CMU.EDU)
 ;;; **********************************************************************
 ;;;
-;;; $Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/compiler/rt/c-call.lisp,v 1.9 1992/03/11 18:30:51 wlott Exp $
+;;; $Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/compiler/rt/c-call.lisp,v 1.10 1992/03/25 16:14:44 wlott Exp $
 ;;;
 ;;; This file contains the VOPs and other necessary machine specific support
 ;;; routines for call-out to C.
@@ -22,7 +22,7 @@
 
 
 
-;;;; Make-call-out-argument-tns and support stuff.
+;;;; Make-call-out-tns and support stuff.
 
 (defun c-call-wired-tn (primitive-type sc-name offset)
   (make-wired-tn (primitive-type-or-lose primitive-type)
@@ -70,7 +70,7 @@
 	      (invoke-alien-type-method :result-tn type state))
 	  (alien-values-type-values type)))
 
-(def-vm-support-routine make-call-out-argument-tns (type)
+(def-vm-support-routine make-call-out-tns (type)
   (declare (type alien-function-type type))
   (let ((arg-state (make-arg-state)))
     (collect ((arg-tns))