diff --git a/.emacs.d/lisp/init-helm.el b/.emacs.d/lisp/init-helm.el
index e4b27a10..52bc4176 100644
--- a/.emacs.d/lisp/init-helm.el
+++ b/.emacs.d/lisp/init-helm.el
@@ -140,6 +140,12 @@
   (define-key comint-mode-map (kbd "M-p") 'helm-comint-input-ring))
 (add-hook 'comint-mode-hook 'ambrevar/helm/comint-set-keys)
 
+;;; Geiser
+(with-eval-after-load 'geiser-repl
+  (defun ambrevar/helm/geiser-set-keys ()
+    (define-key geiser-repl-mode-map (kbd "M-p") 'helm-comint-input-ring))
+  (add-hook 'geiser-repl-mode-hook 'ambrevar/helm/geiser-set-keys))
+
 ;;; TODO: Use helm-ff history in helm file completion.
 ;;; https://github.com/emacs-helm/helm/issues/1118
 ;; (define-key helm-read-file-map (kbd "M-p") 'helm-ff-run-switch-to-history)