diff --git a/bundle/bundle--customfile.el b/bundle/bundle--customfile.el
index 70efcf32..a9679d0f 100644
--- a/bundle/bundle--customfile.el
+++ b/bundle/bundle--customfile.el
@@ -16,7 +16,11 @@
         '(("german" "[[:alpha:]]" "[^[:alpha:]]" "[']" t ("-d" "de_DE_frami,de_AT_frami,de_CH_frami") nil utf-8)
           ("english" "[[:alpha:]]" "[^[:alpha:]]" "[']" nil ("-d" "en_US") nil utf-8)
           ("german,english" "[[:alpha:]]" "[^[:alpha:]]" "[']" nil ("-d" "de_DE_frami,en_US") nil utf-8))
-        ispell-hunspell-dictionary-alist ispell-local-dictionary-alist))
+        ispell-hunspell-dictionary-alist ispell-local-dictionary-alist)
+  (when (file-exists-p "~/Documents/slime_filename_translations.el")
+    (load-file "~/Documents/slime_filename_translations.el"))
+  (setq common-lisp-hyperspec-root
+        (concat "file://" (expand-file-name "~/Documents/sites/lisp-docs/HyperSpec-7-0/HyperSpec/"))))
 
 (when (eq system-type 'windows-nt)
   ;; (add-to-list 'exec-path "C:/msys64/mingw64/bin")
@@ -36,6 +40,8 @@
           ("english" "[[:alpha:]]" "[^[:alpha:]]" "[']" nil ("-d" "en_US") nil utf-8)
           ("german,english" "[[:alpha:]]" "[^[:alpha:]]" "[']" nil ("-d" "de_DE_frami,en_US") nil utf-8))
         ispell-hunspell-dictionary-alist ispell-local-dictionary-alist)
+  (when (file-exists-p "d:/visua/Documents/slime_filename_translations.el")
+    (load-file "d:/visua/Documents/slime_filename_translations.el"))
 
   ;; (defun powershell (&optional buffer)
   ;;   "Launches a powershell in buffer *powershell* and switches to it."
@@ -47,7 +53,9 @@
 
   (when (string= (system-name) "EVG02667NB")
     (cd "d:/opt")
-    (setq custom-file "~/.emacs.d/bundle/custom_win32_EVG02667NB.el")))
+    (setq custom-file "~/.emacs.d/bundle/custom_win32_EVG02667NB.el")
+    (setq common-lisp-hyperspec-root
+          (concat "file:///" (expand-file-name "~/sites/HyperSpec/")))))
 
 ;; CUSTOM_FILE
 (load custom-file :noerror)
diff --git a/bundle/bundle--package.el b/bundle/bundle--package.el
index 3ea6972f..952cc5da 100644
--- a/bundle/bundle--package.el
+++ b/bundle/bundle--package.el
@@ -153,10 +153,6 @@
                  slime-editing-commands
                  slime-sbcl-exts))
   (progn
-    (setq common-lisp-hyperspec-root
-          (let ((file (if (eq system-type 'windows-nt) "file:///" "file://")))
-            (concat file
-                    (expand-file-name "~/Documents/sites/lisp-docs/HyperSpec-7-0/HyperSpec/"))))
     (setq common-lisp-hyperspec-symbol-table
           (concat common-lisp-hyperspec-root "Data/Map_Sym.txt"))
     (setq common-lisp-hyperspec-issuex-table
@@ -168,14 +164,8 @@
             slime-lisp-implementations `((sbcl (,sbcl-exe "--noinform" "--core" ,sbcl-core))))
     (setq inferior-lisp-program "/usr/bin/sbcl --noinform"))
   (let ((helper (expand-file-name "~/quicklisp/slime-helper.el")))
-    (when (file-exists-p helper) (load helper)))
-  (let* ((docs-dir
-          (if (eq system-type 'windows-nt)
-              (expand-file-name "d:/visua/Documents")
-            (expand-file-name "~/Documents")))
-         (file (concat docs-dir "/slime_filename_translations.el")))
-    (when (file-exists-p file)
-      (load-file file))))
+    (when (file-exists-p helper) (load-file helper))))
+
 (use-package simple-httpd
   :defer t)