diff --git a/compiler/ir1tran.lisp b/compiler/ir1tran.lisp
index 41d731b1410e534624bcdd2115fba86ee3acfda9..011d53f2861886874ca7ba63092d4b17d2f401cd 100644
--- a/compiler/ir1tran.lisp
+++ b/compiler/ir1tran.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/ir1tran.lisp,v 1.105 1994/03/05 14:38:35 ram Exp $")
+  "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/compiler/ir1tran.lisp,v 1.106 1994/04/12 13:20:58 ram Exp $")
 ;;;
 ;;; **********************************************************************
 ;;;
@@ -2219,15 +2219,15 @@
   (when (or (not (listp situations))
 	    (set-difference situations
 			    '(compile load eval
-			      :compile-top-level :load-top-level :execute)))
+			      :compile-toplevel :load-toplevel :execute)))
     (compiler-error "Bad Eval-When situation list: ~S." situations))
 
-  (let* ((do-eval (and (intersection '(compile :compile-top-level) situations)
+  (let* ((do-eval (and (intersection '(compile :compile-toplevel) situations)
 		       (not lisp::*already-evaled-this*)))
 	 (lisp::*already-evaled-this* t))
     (when do-eval
       (eval `(progn ,@body)))
-    (if (or (intersection '(:load-top-level load) situations)
+    (if (or (intersection '(:load-toplevel load) situations)
 	    (and *converting-for-interpreter*
 		 (intersection '(:execute eval) situations)))
 	(funcall fun body)