diff --git a/.emacs.d/lisp/init-helm.el b/.emacs.d/lisp/init-helm.el
index e4a0b87a..dc23d913 100644
--- a/.emacs.d/lisp/init-helm.el
+++ b/.emacs.d/lisp/init-helm.el
@@ -154,6 +154,8 @@
         (add-hook 'slime-repl-mode-hook 'company-mode))
       (defun ambrevar/helm/slime-set-keys ()
         (define-key slime-repl-mode-map (kbd "M-p") 'helm-slime-repl-history)
+        (define-key slime-repl-mode-map (kbd "M-s") nil)
+        (define-key slime-repl-mode-map (kbd "M-s f") 'helm-comint-input-ring)
         (define-key slime-autodoc-mode-map (kbd "C-c C-d C-a") 'helm-slime-apropos)
         (define-key slime-repl-mode-map (kbd "C-c C-x c") 'helm-slime-list-connections)
         (define-key slime-mode-map (kbd "M-<tab>") 'helm-slime-complete)