diff --git a/collects/mzlib/private/match/emit-assm.scm b/collects/mzlib/private/match/emit-assm.scm
index 6c6687205f..5e9377af45 100644
--- a/collects/mzlib/private/match/emit-assm.scm
+++ b/collects/mzlib/private/match/emit-assm.scm
@@ -81,9 +81,7 @@
             (if (and #,tst tst-prev) true-act fail-act))]
          [(let/ec k (let ((fail (lambda () (_ f2)))) s2))
           (stx-equal? main-fail #'f2)
-          (begin 
-            (error "never happens")
-            (printf "got here!~n")
+          (begin
             (quasisyntax/loc
                 tst
               (let/ec k
diff --git a/collects/mzlib/private/match/observe-step.ss b/collects/mzlib/private/match/observe-step.ss
index 10f31f71d3..55bbb8d1a8 100644
--- a/collects/mzlib/private/match/observe-step.ss
+++ b/collects/mzlib/private/match/observe-step.ss
@@ -6,7 +6,7 @@
   
   (define (observe-step pre mpre mpost post)
     (define (call-obs ev . args) 
-      (let ([obs (current-expand-observe)])
+      (let ([obs values #;(current-expand-observe)])
         (if obs 
             (let ([evn (case ev
                          [(visit) 0]