diff --git a/compiler/ir1tran.lisp b/compiler/ir1tran.lisp
index eba54fa760cf335229c46ed785980df7380cc67d..19590123c083ab02506ead128c3b3a7afc6af9d7 100644
--- a/compiler/ir1tran.lisp
+++ b/compiler/ir1tran.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/ir1tran.lisp,v 1.110 1997/08/21 18:38:50 pw Exp $")
+  "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/compiler/ir1tran.lisp,v 1.111 1998/05/15 03:26:59 dtc Exp $")
 ;;;
 ;;; **********************************************************************
 ;;;
@@ -1150,6 +1150,13 @@
      (let ((what (first spec)))
        (cond ((member what type-specifier-symbols)
 	      (process-type-declaration spec res vars))
+	     ((and (not (and (symbolp what)
+			     (string= (symbol-name what) "CLASS"))) ; pcl hack
+		   (or (info type kind what)
+		       (and (consp what) (info type translator (car what)))))
+	      (unless (policy nil (= brevity 3))
+		(compiler-note "Abbreviated type declaration: ~S." spec))
+	      (process-type-declaration spec res vars))
 	     ((info declaration recognized what)
 	      res)
 	     (t