anchor.diff:  		(name (if (consp name) (first (last name)) name))
   		(file (make-pathname :directory dir :name name :defaults *snark-system-pathname*)))
   	   (> (file-write-date file)
  -	      (or (file-write-date (make-pathname :defaults file
  -						  :type *snark-fasl-type*))
  -		  0))))))
  +	      (let ((fasl-file (probe-file (make-pathname :defaults file
  +							  :type *snark-fasl-type*))))
  +		(if fasl-file (or (file-write-date fasl-file)
  +				  0)
  +		  0)))))))
   
   (defun make-or-load-snark-system ()
     (cond
  
positive.code:   #+allegro "fasl"
    #+mcl     "dfsl"
    #+cmu     "x86f"
    #+sbcl    sb-fasl:*fasl-file-type*)
  
  (defun need-to-recompile-snark-system ()
    (or
  
negative.code: 		(name (if (consp name) (first (last name)) name))
  		(file (make-pathname :directory dir :name name :defaults *snark-system-pathname*)))
  	   (> (file-write-date file)
  	      (let ((fasl-file (probe-file (make-pathname :defaults file
  							  :type *snark-fasl-type*))))
  		(if fasl-file (or (file-write-date fasl-file)
  				  0)
  		  0)))))
     (loop for name in *snark-files*
         thereis
  	 (let* ((dir (if (consp name)
  