diff --git a/collects/tests/mzscheme/match/match-test.ss b/collects/tests/mzscheme/match/match-test.ss
index f1cb2b1e18..659d3b16c3 100644
--- a/collects/tests/mzscheme/match/match-test.ss
+++ b/collects/tests/mzscheme/match/match-test.ss
@@ -1314,13 +1314,13 @@
 
 ;; set! for vectors
 
-(mytest (let ((x #(1 2)))
+(mytest (let ((x (vector 1 2)))
         (match x
                (#(_ (set! set-it)) (set-it 17)))
         x)
       #(1 17))
 
-(mytest (let ((x #(1 2)))
+(mytest (let ((x (vector 1 2)))
         (match x
                (#((set! set-it) _) (set-it 17)))
         x)
@@ -1328,7 +1328,7 @@
 
 ;; set! for boxes
 
-(mytest (let ((x #&1))
+(mytest (let ((x (box 1)))
         (match x
                (#&(set! set-it) (set-it 17)))
         x)
@@ -1342,7 +1342,7 @@
       #&(1 17))
 |#
 
-(mytest (let ((x #&#(1 2)))
+(mytest (let ((x (box (vector 1 2))))
         (match x
                (#&#(_ (set! set-it)) (set-it 17)))
         x)
@@ -1435,7 +1435,7 @@
 
 ;; get! for vectors
 
-(mytest (let* ((x #(1 2))
+(mytest (let* ((x (vector 1 2))
              (f
         (match x
                (#(_ (get! get-it)) get-it))))
@@ -1444,7 +1444,7 @@
         (f)) 17)
 
 
-(mytest (let* ((x #(1 2))
+(mytest (let* ((x (vector 1 2))
              (f
         (match x
                (#((get! get-it) _) get-it))))
@@ -1455,7 +1455,7 @@
 
 ;; get! for boxes
 
-(mytest (let* ((x #&1)
+(mytest (let* ((x (box 1))
              (f
         (match x
                (#&(get! get-it) get-it))))
@@ -1474,7 +1474,7 @@
         (f)) 17)
 |#
 
-(mytest (let* ((x #&#(1 2))
+(mytest (let* ((x (box (vector 1 2)))
              (f
         (match x
                (#&#(_ (get! get-it)) get-it))))
diff --git a/collects/tests/mzscheme/match/plt-match-test.ss b/collects/tests/mzscheme/match/plt-match-test.ss
index ef2704f6af..fcc951b7c6 100644
--- a/collects/tests/mzscheme/match/plt-match-test.ss
+++ b/collects/tests/mzscheme/match/plt-match-test.ss
@@ -2012,19 +2012,19 @@
   '(1 2 (3 . 4) . 17))
 |#
  (mytest
-  (let ((x #2(1 2))) (match x ((vector _ (set! set-it)) (set-it 17))) x)
+  (let ((x (vector 1 2))) (match x ((vector _ (set! set-it)) (set-it 17))) x)
   #2(1 17))
  (mytest
-  (let ((x #2(1 2))) (match x ((vector (set! set-it) _) (set-it 17))) x)
+  (let ((x (vector 1 2))) (match x ((vector (set! set-it) _) (set-it 17))) x)
   #2(17 2))
- (mytest (let ((x #&1)) (match x ((box (set! set-it)) (set-it 17))) x) #&17)
+ (mytest (let ((x (box 1))) (match x ((box (set! set-it)) (set-it 17))) x) #&17)
 #|
  (mytest
   (let ((x #&(1 2))) (match x ((box (list _ (set! set-it))) (set-it 17))) x)
   #&(1 17))
 |#
  (mytest
-  (let ((x #&#2(1 2)))
+  (let ((x (box (vector 1 2))))
     (match x ((box (vector _ (set! set-it))) (set-it 17)))
     x)
   #&#2(1 17))