diff --git a/code/byte-interp.lisp b/code/byte-interp.lisp
index a53ce11b954a552bea71b14395dd432d848ab97f..a984c2e9dca923dee8b92d22c76d1aaa93201f2f 100644
--- a/code/byte-interp.lisp
+++ b/code/byte-interp.lisp
@@ -7,7 +7,7 @@
 ;;; Scott Fahlman or slisp-group@cs.cmu.edu.
 ;;;
 (ext:file-comment
-  "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/code/byte-interp.lisp,v 1.3 1992/09/07 16:10:36 ram Exp $")
+  "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/code/byte-interp.lisp,v 1.4 1993/03/01 20:02:31 ram Exp $")
 ;;;
 ;;; **********************************************************************
 ;;;
@@ -668,9 +668,8 @@
 (defun load-type-predicate (desc)
   (or (gethash desc *byte-type-predicates*)
       (let ((type (specifier-type desc)))
-	(if (structure-type-p type)
-	    (let ((info (info type defined-structure-info
-			      (structure-type-name type))))
+	(if (typep type 'structure-class)
+	    (let ((info (layout-info (class-layout type))))
 	      (if (and info (eq (dd-type info) 'structure))
 		  (let ((pred (dd-predicate info)))
 		    (if (and pred (fboundp pred))