diff --git a/compiler/typetran.lisp b/compiler/typetran.lisp
index d31443686804d3e2ddc9a904d5c555067f18b155..45e434e5e44d39d715dfb277f0781b9440d4081e 100644
--- a/compiler/typetran.lisp
+++ b/compiler/typetran.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/typetran.lisp,v 1.23 1993/08/19 17:36:12 ram Exp $")
+  "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/compiler/typetran.lisp,v 1.24 1993/08/19 21:03:39 ram Exp $")
 ;;;
 ;;; **********************************************************************
 ;;;
@@ -121,7 +121,7 @@
 ;;; load time.
 ;;; 
 (deftransform find-class ((name) ((constant-argument symbol)) *
-			  :where :both)
+			  :when :both)
   (let* ((name (continuation-value name))
 	 (cell (find-class-cell name)))
     `(or (class-cell-class ',cell)