(define (run-test the-test)
  (let ((expression (car the-test)))
    (write expression) ; show it before the possible

    (let* ((result (eval expression (interaction-environment)))
           (status (equal? (cadr the-test) result)))
      (if status
          (display " ok")
          (display " FAIL"))
      (newline)
      (if (not status) ; in addition
          (begin
            (display " Expected: ")
            (write (cadr the-test))
            (newline)
            (display " Returned: ")
            (write result)
            (newline)))
      status)))