anchor.diff:  
   ;;; end of backtrace printing
   
  -(defun catching-problems (body-func on-problem-func)
  +(defun cl-user::catching-problems (body-func on-problem-func)
     "Runs BODY-FUNC and returns it's result. But if BODY-FUNC causes any
   problems (signals SERIOS-CONDITION or enters debugger),
   logs the problem description to *STANDARD-OUTPUT* and
  
positive.code: ;;;; This file contains common utilities usefull for most
  ;;;; of the child lisp processes started by agent.
  
  (in-package #:cl-user)
  
  (defun set-response (response-file value)
    "Save the resposne for the parent process."
    (with-open-file (out response-file
                         :direction :output
  
negative.code:                               (funcall on-problem-func))))
        (funcall body-func))))
  
  (defun cl-user::saving-output (file body)
    (with-open-file (stream file
                            :direction :output
                            :if-exists :append
  