Index: eclipse.lisp
===================================================================
RCS file: /project/eclipse/cvsroot/eclipse/eclipse.lisp,v
retrieving revision 1.25
diff -u -u -r1.25 eclipse.lisp
--- eclipse.lisp	14 Jan 2006 15:40:55 -0000	1.25
+++ eclipse.lisp	28 May 2006 18:02:31 -0000
@@ -185,7 +185,7 @@
 			  :line-width 1 :exposures :OFF))
       ;; load personal configuration file, or the default one.
       (labels ((load-if (f) (and (probe-file f) (load-config-file f))))
-	(or (load-if (home-subdirectory cl-user::*eclipse-initfile*))
+	(or (load-if (home-subdirectory *eclipse-initfile*))
 	    (load-if (eclipse-path "eclipserc"))
 	    (error "Unable to read a configuration file.~%")))
       (setf (xlib:window-cursor root-window) (root-default-cursor *root*))
Index: global.lisp
===================================================================
RCS file: /project/eclipse/cvsroot/eclipse/global.lisp,v
retrieving revision 1.29
diff -u -u -r1.29 global.lisp
--- global.lisp	1 Mar 2005 22:41:31 -0000	1.29
+++ global.lisp	28 May 2006 18:02:32 -0000
@@ -24,7 +24,7 @@
 
 (defun eclipse-path (&rest names)
   (apply #'concatenate 'string
-	 (or cl-user::*eclipse-eclipsedir* *eclipse-directory*)
+	 (or *eclipse-eclipsedir* *eclipse-directory*)
 	 names))
 
 ;; The two following constants represent all the gnome protocols 
@@ -214,6 +214,7 @@
   (format *stderr* 
 	  "X error ~A ~:[~;with id~]~%=> ~{~A ~}~%" 
 	  err resource-id keys)
+  (cl-user::backtrace)
   (when resource-id
     (let* ((resource (xlib::lookup-window dpy resource-id))
 	   (widget (lookup-widget resource)))
Index: package.lisp
===================================================================
RCS file: /project/eclipse/cvsroot/eclipse/package.lisp,v
retrieving revision 1.19
diff -u -u -r1.19 package.lisp
--- package.lisp	16 Jan 2005 23:25:59 -0000	1.19
+++ package.lisp	28 May 2006 18:02:32 -0000
@@ -363,6 +363,10 @@
    #:*verbose-resize* 			  
    #:*verbose-window-cycling*              
    #:*warp-pointer-when-cycle*    
+
+   ;; added for steeldump:
+   #:*eclipse-eclipsedir*
+   #:*eclipse-initfile*
    ))
 
 (defpackage  ECLIPSE-EXTENSIONS 
Index: system.lisp
===================================================================
RCS file: /project/eclipse/cvsroot/eclipse/system.lisp,v
retrieving revision 1.16
diff -u -u -r1.16 system.lisp
--- system.lisp	13 Mar 2005 23:37:06 -0000	1.16
+++ system.lisp	28 May 2006 18:02:32 -0000
@@ -109,7 +109,7 @@
 (eclipse-defsystem (:eclipse-lisp)
   #+:clisp "lisp-dep/clisp.lisp")
 
-(eclipse-defsystem (:clx-ext :depends-on (:eclipse-lisp))
+(eclipse-defsystem (:clx-ext :depends-on (:eclipse-lisp :clx))
   "lib/clx-ext/clx-patch.lisp"
   "lib/clx-ext/xvidmode.lisp"
   "lib/clx-ext/package.lisp"