diff --git a/collects/tests/mzscheme/vector.ss b/collects/tests/mzscheme/vector.ss
index 223477a5e9..90a40244aa 100644
--- a/collects/tests/mzscheme/vector.ss
+++ b/collects/tests/mzscheme/vector.ss
@@ -119,6 +119,17 @@
   (test 2 vector-count even? #(1 2 3 4))
   (test 2 vector-count < #(1 2 3 4) #(4 3 2 1)))
 
+;; ---------- vector-copy ----------
+
+(let ()
+  (test #() vector-copy #())
+  (test #(1 2 3) vector-copy #(1 2 3))
+  (test #f immutable? (vector-copy #(1 2 3)))
+  (let ([v (vector 1 2 3)])
+    (test #f eq? v (vector-copy v))))
+
+
+
 ;; ---------- vector-arg{min,max} ----------
 
 (let ()