anchor.diff:  (defvar *pbs-arguments-string* "")
   (defvar *pbs-program-arguments-string* "")
   
  -(defun prepare-pbs-script (directory area tree program &key (if-exists :error if-exists-p) (output "stdout/"))
  +(defun determine-pbs-qsub-output-arguments (directory output error)
  +  (assert (stringp output))
  +  (format nil "~{~A~^ ~}"
  +	  (list (format nil "-o ~S" (namestring (merge-pathnames output directory)))
  +		(cond
  +		    ((eql error :output)		     
  +		     "-j oe")
  +		    (t
  +		     (format nil "-e ~S" (namestring (merge-pathnames error directory))))))))
  +
  +(defun prepare-pbs-script (directory area tree program &key (if-exists :error if-exists-p) (output "stdout/") (error :output))
     (declare (type (member :error :supersede :supersede-all) if-exists))
     (let ((program-path (if (listp program)
   			  (apply #'lisp-executable-pathname program)
  
positive.code: 		 :do		 
  		 (format out "
  LEVEL~d=`qsub -t 1-~d \\
       -j oe -o ~S \\
       -N ~S \\
       $(cat ~S) \\
      ~A \\
  
negative.code: "
  			 depth
  			 count
  			 (determine-pbs-qsub-output-arguments directory output error)
  			 (pathname-name program-path)
  			 (namestring (merge-pathnames "pbs-arguments"))
  			 (if (> depth 1)
  