diff --git a/scheme/last-revision b/scheme/last-revision
index b4c6992..88dd643 100644
--- a/scheme/last-revision
+++ b/scheme/last-revision
@@ -1 +1 @@
-1796
+1797
diff --git a/scheme/pass-specify-rep-primops.ss b/scheme/pass-specify-rep-primops.ss
index 55cf25c..c561662 100644
--- a/scheme/pass-specify-rep-primops.ss
+++ b/scheme/pass-specify-rep-primops.ss
@@ -495,7 +495,7 @@
         [else (check-non-vector x idx)]))
     /section)
 
-(define-primop vector? unsafe
+(define-primop vector? safe
   [(P x) (sec-tag-test (T x) vector-mask vector-tag fx-mask fx-tag)]
   [(E x) (nop)])