diff --git a/compiler/ir1opt.lisp b/compiler/ir1opt.lisp
index 9f2f75608b2db3ad7022a96cee85ce54aa0d0181..6ea6145ee72f58508b8b80078862770790092f57 100644
--- a/compiler/ir1opt.lisp
+++ b/compiler/ir1opt.lisp
@@ -5,7 +5,7 @@
 ;;; Carnegie Mellon University, and has been placed in the public domain.
 ;;;
 (ext:file-comment
-  "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/compiler/ir1opt.lisp,v 1.65 1994/10/31 04:27:28 ram Exp $")
+  "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/compiler/ir1opt.lisp,v 1.66 1998/02/24 09:58:18 dtc Exp $")
 ;;;
 ;;; **********************************************************************
 ;;;
@@ -1112,6 +1112,9 @@
       (cond
        ((not win)
 	(setf (combination-kind call) :error))
+       ;; X Always transform the call below so that non-flushable
+       ;; functions get flushed if the constant folding works.
+       #+nil
        ((= (length values) 1)
 	(with-ir1-environment call
 	  (when (producing-fasl-file)