Index: mcclim.asd
===================================================================
RCS file: /project/mcclim/cvsroot/mcclim/mcclim.asd,v
retrieving revision 1.8
diff -u -r1.8 mcclim.asd
--- mcclim.asd	10 Mar 2006 21:58:13 -0000	1.8
+++ mcclim.asd	15 Mar 2006 07:10:38 -0000
@@ -369,7 +369,7 @@
   "Apps/Scigraph/scigraph/demo-frame")
 
 (defsystem :clim-listener
-    :depends-on (:clim :clim-looks #+sbcl :sb-posix)
+    :depends-on (:clim :clim-looks #+sbcl :sb-posix :cl-fad)
     :components
     ((:file "Experimental/xpm"
             :pathname #.(make-pathname :directory '(:relative "Experimental") :name "xpm" :type "lisp"))
Index: Apps/Listener/package.lisp
===================================================================
RCS file: /project/mcclim/cvsroot/mcclim/Apps/Listener/package.lisp,v
retrieving revision 1.2
diff -u -r1.2 package.lisp
--- Apps/Listener/package.lisp	22 Sep 2005 11:40:31 -0000	1.2
+++ Apps/Listener/package.lisp	15 Mar 2006 07:10:38 -0000
@@ -7,6 +7,13 @@
 
 (in-package :clim-listener)
 
+(defvar *icon-path* nil)
+
 (eval-when (:load-toplevel)
-;  (format t "~&~%!@#%^!@#!@ ... ~A~%~%" *load-truename*)
-  (defparameter *icon-path* (merge-pathnames #P"icons/" *load-truename*)))
+  (flet ((try-directory (base)
+	   (when base
+	     (cl-fad:directory-exists-p (make-pathname :directory (pathname-directory (merge-pathnames #P"icons/" base)))))))
+     (setf *icon-path*
+	   (or (try-directory *load-truename*)
+	       (try-directory #.*compile-file-truename*)
+	       (error "clim-listener is not able to find its icon path.~&")))))
