diff --git a/compiler/generic/primtype.lisp b/compiler/generic/primtype.lisp
index 6cbceaa7c8b5767238f6bd99d986a31e04ba3b2b..327a859369a01d4ef2f80cc9209e930946c27372 100644
--- a/compiler/generic/primtype.lisp
+++ b/compiler/generic/primtype.lisp
@@ -7,7 +7,7 @@
 ;;; Lisp, please contact Scott Fahlman (Scott.Fahlman@CS.CMU.EDU)
 ;;; **********************************************************************
 ;;;
-;;; $Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/compiler/generic/primtype.lisp,v 1.1 1990/11/03 03:16:46 wlott Exp $
+;;; $Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/compiler/generic/primtype.lisp,v 1.2 1990/11/03 15:35:27 wlott Exp $
 ;;;
 ;;; This file contains the machine independent aspects of the object
 ;;; representation and primitive types.
@@ -22,7 +22,8 @@
 ;;; *Anything*
 ;;; 
 (def-primitive-type t (descriptor-reg))
-(setf (backend-any-primitive-type *backend*) (primitive-type-or-lose 't))
+(defvar *any-primitive-type* (primitive-type-or-lose 't))
+(setf (backend-any-primitive-type *backend*) *any-primitive-type*)
 
 ;;; Primitive integer types that fit in registers.
 ;;;