--- slime.el.1.905  2008-02-18 11:38:35.796875000 -0500
+++ slime.el    2008-02-18 11:04:50.234375000 -0500
@@ -72,8 +72,7 @@
   (when (member 'lisp-mode slime-lisp-modes)
     (add-hook 'lisp-mode-hook 'slime-lisp-mode-hook))
   (when contribs
-    (pushnew (file-name-as-directory
-              (expand-file-name (concat slime-path "contribs")))
+    (pushnew (expand-file-name (concat slime-path "contrib"))
              load-path
              :test 'string=)
     (dolist (c contribs)
