anchor.diff:        (format s "~%")
         (format t "========================================================~%"))
       (let ((process nil))
  -      (format t "~&~%Output from lisp in lower process being created:~%")
  +      (format t "~&~%Output from the lower process being created:~%")
         (format t "~&========================================================~%")
         (unwind-protect 
  -	  (setq process (run-program "/usr/local/bin/cmucl" '() :wait t :input "/tmp/cmds" :output t :error :output))
  -	(let ((rc (process-exit-code process)))
  -	  (format t "~&========================================================~%")
  -	  (cond ((= rc 0)
  -		 (format t "~&~%Success saving ~A~%" app-file)
  -		 (format t "~&Invoke as:")
  -		 (format t "~& cmucl -core ~A~%~%" app-file))
  -		(t
  -		 (format t "~&Problem: Return code = ~D when saving ~A~%~%" app-file)))
  -	  (process-close process))))))
  +	  (setq process (run-program base-lisp '() :wait t :input "/tmp/cmds" :output t :error :output))
  +	(if (null process)
  +	    (error "Problem creating lower process: ~A" base-lisp)
  +	  (let ((rc (process-exit-code process)))
  +	    (format t "~&========================================================~%")
  +	    (cond ((= rc 0)
  +		   (format t "~&~%Success saving ~A~%" app-file)
  +		   (format t "~&Invoke as:")
  +		   (format t "~& cmucl -core ~A~%~%" app-file))
  +		  (t
  +		   (format t "~&Problem: Return code = ~D when saving ~A~%~%" app-file)))
  +	    (process-close process)))))))
   
   (defun copy-file (a b)
     (with-open-file (old a :direction :input :element-type 'unsigned-byte)
  
positive.code:     (unless (probe-file app-file) (create-file app-file)) ; temporary bug workaround (??)
      (dolist (file files-to-copy) (copy-file file (make-pathname :directory dir :defaults file)))
      (with-open-file (s "/tmp/cmds" :direction :output :if-exists :supersede)
        (format t "~%Commands to be used to create ~A~%" app-file)
        (format t "========================================================~%")
        (dolist (file files-to-load) 
  	(format t "(load ~S)~%" file)
  
negative.code:     (ensure-directories-exist app-file)
      (dolist (file files-to-copy) (copy-file file (make-pathname :directory dir :defaults file)))
      (with-open-file (s "/tmp/cmds" :direction :output :if-exists :supersede)
        (format t "~%Commands to be used in lower process ~A to create~%  ~A~%" base-lisp app-file)
        (format t "========================================================~%")
        (format t "(setq ext:*gc-verbose* nil)~%")
        (format s "(setq ext:*gc-verbose* nil)~%")
  