diff --git a/test-conform.rkt b/test-conform.rkt
index 10c6745..c581a32 100644
--- a/test-conform.rkt
+++ b/test-conform.rkt
@@ -53,16 +53,6 @@
            (let*-values([(a-machine num-steps) 
                          (run (new-machine (run-compiler code)) options ...)]
                         [(actual) (machine-val a-machine)])
-             (unless (equal? actual exp)
-               (raise-syntax-error #f (format "Expected ~s, got ~s" exp actual)
-                                   #'stx))
-             (unless (= (machine-stack-size a-machine) 1)
-               (raise-syntax-error #f (format "Stack is not back to the prefix as expected!")
-
-                                   #'stx))
-             (unless (null? (machine-control a-machine))
-               (raise-syntax-error #f (format "Control is not empty as expected!")
-                                   #'stx))
              (printf "ok. ~s steps.\n\n" num-steps)))))]))