diff --git a/compiler/old-rt/vm-tran.lisp b/compiler/old-rt/vm-tran.lisp
index 99007587a3f111f30cf362134ef51503cc569e55..507223e7404f907b33960008e76c61361efe85f3 100644
--- a/compiler/old-rt/vm-tran.lisp
+++ b/compiler/old-rt/vm-tran.lisp
@@ -43,6 +43,7 @@
 (define-vop (structure-vector-p simple-vector-p)
   (:translate structure-vector-p))
 
+#-new-compiler
 (set 'lisp::type-pred-alist
      (adjoin (cons 'structure-vector 'simple-vector-p)
 	     (symbol-value 'lisp::type-pred-alist)