diff --git a/implementation.rkt b/implementation.rkt
index de157f8..3fb64ea 100644
--- a/implementation.rkt
+++ b/implementation.rkt
@@ -285,8 +285,6 @@
         (syntax-parser
           #:context context
           #:literals (^ * + - ∞ once)
-          [({~do (displayln this-syntax)} #:oops-nope)
-           #'trbgfdsctgbrfvdc]
           [()
            #'(list)]
           [rest:not-stx-pair
diff --git a/test/test-split-xlist-ann.rkt b/test/test-split-xlist-ann.rkt
index 4eece2d..5854f17 100644
--- a/test/test-split-xlist-ann.rkt
+++ b/test/test-split-xlist-ann.rkt
@@ -136,7 +136,7 @@
                : (List Fixnum String Null)
                '(1 "flob" ()))
 
-(check-equal?: (match (ann (list 1 "flob") Any)
+(check-equal?: (match (list 1 "flob")
                  [(and (? (make-predicate (xlist Fixnum String)))
                        (split-xlist whole Fixnum String)) whole])
                : (List One String Null)