diff --git a/bundle/bundle--lisp.el b/bundle/bundle--lisp.el
index 3afc7c12..673efbcf 100644
--- a/bundle/bundle--lisp.el
+++ b/bundle/bundle--lisp.el
@@ -12,12 +12,14 @@
                  slime-editing-commands
                  slime-sbcl-exts))
 
+  ;; To create a slime specific sbcl image:
   ;; shell$ sbcl
   ;; * (mapc 'require '(sb-bsd-sockets sb-posix sb-introspect sb-cltl2 asdf))
   ;; * (save-lisp-and-die "sbcl.core-for-slime")
   (let ((image-path (expand-file-name "~/sbcl.core-for-slime")))
     (setq slime-lisp-implementations
-          `((sbcl ("sbcl" "--core" ,image-path)))))
+          `((sbcl ("sbcl" "--core" ,image-path)
+                  :coding-system utf-8-unix))))
 
   (defvar mk/hyperspec-dir-locations
     '("d:/visua/projects/personal/lisp-docs/HyperSpec-7-0/HyperSpec/"