diff --git a/basis/persistent/vectors/vectors.factor b/basis/persistent/vectors/vectors.factor
index 859331cc77..b0a132249c 100644
--- a/basis/persistent/vectors/vectors.factor
+++ b/basis/persistent/vectors/vectors.factor
@@ -21,6 +21,8 @@ TUPLE: persistent-vector
 
 M: persistent-vector length count>> ;
 
+<PRIVATE
+
 CONSTANT: node-size 32
 
 : node-mask ( m -- n ) node-size mod ; inline
@@ -156,6 +158,8 @@ M: persistent-vector new-nth ( obj i pvec -- pvec' )
         } cond
     ] dip [ >>root ] [ >>tail ] bi* ;
 
+PRIVATE>
+
 M: persistent-vector ppop ( pvec -- pvec' )
     dup count>> {
         { 0 [ empty-error ] }