diff --git a/testsuite/t-match.scm b/testsuite/t-match.scm
index 4b85f30d3..ed56ae7ef 100644
--- a/testsuite/t-match.scm
+++ b/testsuite/t-match.scm
@@ -12,7 +12,7 @@
 (define (matches? obj)
 ;  (format #t "matches? ~a~%" obj)
   (match obj
-	 (($ stuff) => #t)
+	 (($ stuff) #t)
 ;	 (blurps    #t)
 	 ("hello"   #t)
 	 (else #f)))