--- slime-2012-05-25_orig/slime.el	2012-06-04 23:25:57.000000000 +0530
+++ slime-2012-05-25/slime.el	2012-07-25 13:18:46.164677071 +0530
@@ -97,7 +97,8 @@
   (when (member 'lisp-mode slime-lisp-modes)
     (add-hook 'lisp-mode-hook 'slime-lisp-mode-hook))
   (setq slime-setup-contribs contribs)
-  (slime-setup-contribs))
+  (slime-setup-contribs)
+  (add-to-list 'load-path "/usr/share/common-lisp/source/slime/"))
 
 (defun slime-setup-contribs ()
   "Load and initialize contribs."
@@ -119,7 +120,7 @@
     "Return the datestring of the latest entry in the ChangeLog file.
 Return nil if the ChangeLog file cannot be found."
     (interactive "p")
-    (let ((changelog (concat slime-path "ChangeLog"))
+    (let ((changelog "/usr/share/doc/emacs-slime-3.0/Changelog")
           (date nil))
       (when (file-exists-p changelog)
         (with-temp-buffer 
@@ -131,8 +132,7 @@
       date)))
 
 (defvar slime-protocol-version nil)
-(setq slime-protocol-version
-      (eval-when-compile (slime-changelog-date)))
+(setq slime-protocol-version (slime-changelog-date))
 
 
 ;;;; Customize groups
@@ -171,7 +171,7 @@
   :prefix "slime-"
   :group 'slime)
 
-(defcustom slime-backend "swank-loader.lisp"
+(defcustom slime-backend "/usr/share/common-lisp/source/slime/swank-loader.lisp"
   "The name of the Lisp file that loads the Swank server.
 This name is interpreted relative to the directory containing
 slime.el, but could also be set to an absolute filename."