 (defun apm-find-project ()
   (interactive)
   (let ((projects-list (apm-local-get-projects-path)))
-    (cd (ido-completing-read "Project: " projects-list))
-    (ido-find-file)))
+    (with-temp-buffer
+      (setq default-directory (ido-completing-read "Project: " projects-list))
+      (ido-find-file))))
 
 ;;;###autoload
 (define-minor-mode apm-minor-mode

;; Copyright (C) 2014 Alexander Prusov

;; Author: Your Name <yourname@example.com>
;; Version: 1.0.3
;; Maintainer: Someone Else <someone@example.com>
;; Created: 14 Jul 2010
;; Keywords: project

  :keymap apm-mode-map
  :group apm
  (if apm-minor-mode
      (apm-local-apply-settings)
    nil))


(define-key apm-mode-map (kbd "C-c c") 'apm-compile)
