diff --git a/collects/tests/typed-scheme/run.rkt b/collects/tests/typed-scheme/run.rkt
index 993c6d14..f2ff3c10 100644
--- a/collects/tests/typed-scheme/run.rkt
+++ b/collects/tests/typed-scheme/run.rkt
@@ -1,6 +1,7 @@
-#lang scheme/base
+#lang racket/base
+(require racket/vector)
 
 (require "main.ss")
 (current-namespace (make-base-namespace))
-(unless (= 0 (go/text (member "unit" (vector->list (current-command-line-arguments)))))
+(unless (= 0 (go/text (vector-member "unit" (current-command-line-arguments))))
   (error "Typed Scheme Tests did not pass."))