diff --git a/match-test.scm b/match-test.scm
index 143acb66..afd6464c 100644
--- a/match-test.scm
+++ b/match-test.scm
@@ -15,17 +15,35 @@
 
 (display
   ;(match "test" ((? string? s) s) (else #f))
+  ;
   ;(let ((v "test"))
   ;  (match-next v ("test" (set! "test")) ((? string? s) s) (else #f)))
+  ;
   ;(let ((v "test"))
   ;  (let ((failure (lambda () (match-next v ("test" (set! "test")) (else #f)))))
   ;    (match-one v ((? string? s) s) ("test" (set! "test")) (match-drop-ids (begin . s)) (failure) ())))
+  ;
+  ;(let ((v "test"))
+  ;  (let ((failure (lambda () (match-next v ("test" (set! "test")) (else #f)))))
+  ;   (match-check-ellipsis
+  ;    s
+  ;    (match-extract-vars (? string? s) (match-gen-ellipsis v (? string? s) ()  ("test" (set! "test")) (match-drop-ids (begin . s)) (failure) ()) () ())
+  ;    (match-two v ((? string? s) s) ("test" (set! "test")) (match-drop-ids (begin . s)) (failure) ()))))
+  ;
+  ;(let ((v "test"))
+  ;  (let ((failure (lambda () (match-next v ("test" (set! "test")) (else #f)))))
+  ;   (match-check-ellipsis
+  ;    s
+  ;    (match-extract-vars (? string? s) (match-gen-ellipsis v (? string? s) ()  ("test" (set! "test")) (match-drop-ids (begin . s)) (failure) ()) () ())
+  ;    (match-two v ((? string? s) s) ("test" (set! "test")) (match-drop-ids (begin . s)) (failure) ()))))
+  ;
+  ;(let ((v "test"))
+  ;  (let ((failure (lambda () (match-next v ("test" (set! "test")) (else #f)))))
+  ;   (match-two v ((? string? s) s) ("test" (set! "test")) (match-drop-ids (begin . s)) (failure) ())))
+  ;
   (let ((v "test"))
     (let ((failure (lambda () (match-next v ("test" (set! "test")) (else #f)))))
-     (match-check-ellipsis
-      s
-      (match-extract-vars (? string? s) (match-gen-ellipsis v (? string? s) ()  ("test" (set! "test")) (match-drop-ids (begin . s)) (failure) ()) () ())
-      (match-two v ((? string? s) s) ("test" (set! "test")) (match-drop-ids (begin . s)) (failure) ()))))
+     (match-two v ((? string? s) s) ("test" (set! "test")) (match-drop-ids (begin . s)) (failure) ())))
 
 )