diff --git a/compiler/srctran.lisp b/compiler/srctran.lisp
index 72cbb685a2aa4580c65067bec05de8de20cc0f47..98806e471b2a248a20d616dce88c04cb8bed6582 100644
--- a/compiler/srctran.lisp
+++ b/compiler/srctran.lisp
@@ -7,7 +7,7 @@
 ;;; Scott Fahlman or slisp-group@cs.cmu.edu.
 ;;;
 (ext:file-comment
-  "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/compiler/srctran.lisp,v 1.35 1992/02/03 22:15:22 ram Exp $")
+  "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/compiler/srctran.lisp,v 1.36 1992/04/08 03:48:16 wlott Exp $")
 ;;;
 ;;; **********************************************************************
 ;;;
@@ -1127,7 +1127,7 @@
   '((* x (%negate x))
     (/ x (%negate x))
     (expt x (/ 1 x))) do
-  (deftransform name ((x y) '(t (constant-argument t)) '* :eval-name t)
+  (deftransform name ((x y) '(t (constant-argument real)) '* :eval-name t)
     "fold identity operations"
     (let ((val (continuation-value y)))
       (unless (and (= (abs val) 1)