diff --git a/motif/lisp/xt-types.lisp b/motif/lisp/xt-types.lisp
index a16e8bee9c74e4acb296473ff2e2731c5a6044db..90d7145bc524a2d0d5e91d66a95de03f1baa8855 100644
--- a/motif/lisp/xt-types.lisp
+++ b/motif/lisp/xt-types.lisp
@@ -15,11 +15,14 @@
 
 (in-package "TOOLKIT")
 
-(declaim (vector *class-table*))
 (declaim (simple-vector *type-table*))
 
-(setf (fill-pointer *class-table*) 0)
-(setf next-type-tag 0)
+(defparameter *class-table* 
+  (make-array 40 :element-type 'cons
+	      :adjustable t :fill-pointer 0))
+(declaim (vector *class-table*))
+
+(defparameter next-type-tag 0)