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 "OpenMCL" '() :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)))))))
     
   ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
   ;;;                 Unknown
  
positive.code:   (ccl:save-application name))
  
  #+MCL
  (defun generate-new-lisp-application (name dir files-to-load files-to-copy)
    ;; Build a fresh image with desired properties.
    ;; (This should be a completely new image, not simply a clone of this image!)
    (let ((app-file (namestring (make-pathname :directory dir :name name))))
  
negative.code:   (excl::dumplisp :name name))
  
  #+Allegro 
  (defun generate-new-lisp-application (base-lisp name dir files-to-load files-to-copy)
    (declare (ignore base-lisp)) ; presumes same as this lisp
    ;; Build a fresh image with desired properties.
    ;; (This should be a completely new image, not simply a clone of this image!)
    (compact-memory t -1 0)
  