anchor.diff:    (let* ((full-file-name (namestring (pathname (concatenate 'string path-name "/" file-name))))
   	 (file-name-uri (concatenate 'string "/Gui/src/" file-name))
   	 (full-path-name (cl-user::path-namestring full-file-name)))
  -    (format t "~% FULL FILE NAME ~S  ~% URI ~S ~% PATH-NAME ~S " full-file-name file-name-uri full-path-name)
  +    (format t "~% FULL FILE NAME ~S  ~% URI ~S ~% PATH-NAME ~S "
  +	    full-file-name file-name-uri full-path-name)
       (format t "~% CURRENT DIRECTORY ~S" (excl::current-directory))
       (specware::change-directory  full-path-name)
       (setq *default-pathname-defaults* (excl::current-directory))
  
positive.code:     (let ((output-str (with-output-to-string (str)
  		      (let ((*standard-output* str))
  			(cl-user::swj file-name-uri)))))
      (jstatic "setGenerateJavaResults" "edu.kestrel.netbeans.lisp.LispProcessManager" path-name file-name output-str))
  
      (format t "~%~% FINISHED")))
  
  
negative.code:   (let* ((full-file-name (namestring (pathname (concatenate 'string path-name "/" file-name))))
  	 (file-name-uri (concatenate 'string "/Gui/src/" file-name))
  	 (full-path-name (cl-user::path-namestring full-file-name)))
      (format t "~% FULL FILE NAME ~S  ~% URI ~S ~% PATH-NAME ~S "
  	    full-file-name file-name-uri full-path-name)
      (format t "~% CURRENT DIRECTORY ~S" (excl::current-directory))
      (specware::change-directory  full-path-name)
      (setq *default-pathname-defaults* (excl::current-directory))
  