diff --git a/racket/collects/racket/contract/private/vector.rkt b/racket/collects/racket/contract/private/vector.rkt
index 184a1b3a3c..8f6439b529 100644
--- a/racket/collects/racket/contract/private/vector.rkt
+++ b/racket/collects/racket/contract/private/vector.rkt
@@ -175,7 +175,8 @@
 (define/subexpression-pos-prop (vector-immutableof c)
   (vectorof c #:immutable #t))
 
-(define-struct base-vector/c (elems immutable))
+(define-struct base-vector/c (elems immutable)
+  #:property prop:custom-write custom-write-property-proc)
 
 (define (vector/c-name c)
   (let ([immutable (base-vector/c-immutable c)])