anchor.diff:  	  )
   	)
   
  -      (setq args (strcat "-f" " " (prof:file-path path)))
  +      (setq args (strcat "profile -f " (prof:file-path path)))
         (if func-sym
  -	(setq args (strcat args " " "-s 1:Load 2:Run"))
  -	(setq args (strcat args " " "-s 1:LoadRun"))
  +	(setq args (strcat args " -s 1:Load 2:Run"))
  +	(setq args (strcat args " -s 1:LoadRun"))
   	)
   
         (startapp (prof:get-exe) args)
   
         (getstring nil "type go!")
   
  +      (setq prof:file (open (strcat path ".traces.txt") "w"))
  +
         (if func-sym
   	(progn
   	  ;; Load
   	  (prof:in "1")
  -	  (load path)
  +	  (load path-prof)
   	  (prof:out nil)
   
   	  ;; Run
  
positive.code:   (setq path (getfiled "Select LISP file" "" "lsp" 0))
    (if path
      (progn
        (setq func nil
  	    func-name (read (getstring nil "function name (empty for load exec): "))
  	    )
        (if (not (vl-symbolp func-sym))
  	(progn
  
negative.code: 	(progn
  	  ;; LoadRun
  	  (prof:in "1")
  	  (load path-prof)
  	  (prof:out nil)
  	  )
  	)
  
        (if prof:file
  	(progn
  	  (close prof:file)
  	  (setq prof:file nil)
  	  )
  	)
  
        (setq args (strcat "view -f " (prof:file-path path)))
        (startapp (prof:get-exe) args)
        )
      )
    )
  