Getting an application's name

[bwill@athena.mit.edu (Brian F Williams)]

	Hi.  When I save out a new application, it saves quite a bit
of state.  I wrote a function which checks to see if any of the
information in the saved application is obsolete, and if so, it 
reloads it.  The problem is that this method seems to be breaking
on some other people's version of MCL.  The problem code is
this

(def-load-pointers reload-invalid-logs ()
    (let ((application-last-saved (file-write-date (format nil "~A~A"
(ccl::startup-directory)

                   (%get-string (%int-to-ptr #$curapname))))))

	My question: is there a better way to do this?  It doesn't
have to be platform independent.  I'm just looking for something that
doesn't rely so heavily on MCL internals.
	Thanks.


--Brian Williams