Index: slime.el
===================================================================
RCS file: /project/slime/cvsroot/slime/slime.el,v
retrieving revision 1.896
diff -u -r1.896 slime.el
@@ -9612,6 +9629,9 @@
           slime-tree-insert)))
 
 (provide 'slime)
+(let ((slime-site-init (concat slime-path "site-init.el")))
+  (when (file-exists-p slime-site-init)
+    (load slime-site-init)))
 (run-hooks 'slime-load-hook)
 
 ;; Local Variables: