diff --git a/bundle/bundle--lisp.el b/bundle/bundle--lisp.el
index 1952cb96..49b48eca 100644
--- a/bundle/bundle--lisp.el
+++ b/bundle/bundle--lisp.el
@@ -16,10 +16,11 @@
   ;; shell$ sbcl
   ;; * (mapc 'require '(sb-bsd-sockets sb-posix sb-introspect sb-cltl2 asdf))
   ;; * (save-lisp-and-die "sbcl.core-for-slime")
-  (when (string-equal system-type "gnu/linux")
+  (when (eq system-type 'gnu/linux)
     (let ((image-path (expand-file-name "~/sbcl.core-for-slime")))
-      (setq slime-lisp-implementations
-            `((sbcl ("sbcl" "--noinform" "--core" ,image-path) :coding-system utf-8-unix)))))
+      (when (file-exists-p image-path)
+        (setq slime-lisp-implementations
+              `((sbcl ("sbcl" "--noinform" "--core" ,image-path) :coding-system utf-8-unix))))))
 
   (defvar mk/hyperspec-dir-locations
     '("d:/visua/projects/personal/lisp-docs/HyperSpec-7-0/HyperSpec/"