diff --git a/compiler/srctran.lisp b/compiler/srctran.lisp
index c12f510ffca3092bfd5c0e4beda1a9d0fd3ddc93..27fbe74cc5b643c0bd139fb9e09a693a1ba8196c 100644
--- a/compiler/srctran.lisp
+++ b/compiler/srctran.lisp
@@ -7,7 +7,7 @@
 ;;; Scott Fahlman (FAHLMAN@CMUC). 
 ;;; **********************************************************************
 ;;;
-;;; $Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/compiler/srctran.lisp,v 1.23 1990/12/12 00:07:24 ram Exp $
+;;; $Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/compiler/srctran.lisp,v 1.24 1991/01/12 13:49:08 ram Exp $
 ;;;
 ;;;    This file contains macro-like source transformations which convert
 ;;; uses of certain functions into the canonical form desired within the
@@ -1248,10 +1248,8 @@
 ;;; cases are replaced with the arg and zero arg cases with the identity.  If
 ;;; Leaf-Fun is true, then replace two-arg calls with a call to that function. 
 ;;;
-(proclaim '(function source-transform-transitive
-		     (symbol list (or symbol null))
-		     void))
 (defun source-transform-transitive (fun args identity &optional leaf-fun)
+  (declare (symbol fun leaf-fun) (list args))
   (case (length args)
     (0 identity)
     (1 `(values ,(first args)))