anchor.diff:  
   (defun reset-state ()
     (clrhash *variables*))
  -
  -(Before
  - (reset-state))
  
positive.code:     `("pending" ,@(when message
                      (list message)))))
  
  (define-wire-protocol-method "begin_scenario" ()
    (with-error-handling
      (map nil 'funcall *before-hooks*)
  
negative.code: (define-wire-protocol-method "end_scenario" ()
    (with-error-handling
      (map nil 'funcall *after-hooks*)
      (reset-state)
      (list "success")))
  
  (define-wire-protocol-method "step_matches" ((name-to-match "name_to_match"))
  