anchor.diff:  
   (defmethod print-error ((result test-result))
     "Print the error condition."
  -  (let ((*print-escape* nil))
  -    (format t "~& | Execution error:~% | ~W" (exerr result))
  -    (format t "~& |~%")
  +  (let ((exerr (exerr result))
  +        (*print-escape* nil))
  +    (when exerr
  +      (format t "~& | Execution error:~% | ~W" (exerr result))
  +      (format t "~& |~%"))
       (print-summary result)))
   
   (defmethod print-error ((results test-results-db))
  
positive.code:     ;; Count errors and record the name
      (when (exerr result)
        (incf (exerr results))
        (push test-name (error-tests results)))))
  
  (defun summarize-results (results)
    "Print a summary of all results."
  
negative.code:    else do
     (push test-name (missing-tests results))
     finally
     (summarize-results results)
     (return results)))
  
  