diff --git a/.emacs.d/lisp/init-lisp.el b/.emacs.d/lisp/init-lisp.el
index d23744d6..361919fa 100644
--- a/.emacs.d/lisp/init-lisp.el
+++ b/.emacs.d/lisp/init-lisp.el
@@ -146,6 +146,7 @@ returns a string."
       (point))))
 
 (with-eval-after-load 'sly
+  (require 'patch-sly)
   (advice-add 'sly-mrepl--insert-prompt :around #'ambrevar/sly-prepare-prompt)
 
   (advice-add 'sly-mrepl-next-prompt :override #'ambrevar/sly-mrepl-next-prompt)
diff --git a/.emacs.d/lisp/patch-sly.el b/.emacs.d/lisp/patch-sly.el
new file mode 100644
index 00000000..14223668
--- /dev/null
+++ b/.emacs.d/lisp/patch-sly.el
@@ -0,0 +1,10 @@
+;; REVIEW: https://github.com/mmgeorge/sly-asdf/issues/33
+(with-eval-after-load 'sly-asdf
+  (defun sly-asdf-load-system (&optional system)
+  "Compile and load an ASDF SYSTEM.
+Default system name is taken from first file matching *.asd in current
+buffer's working directory"
+  (interactive (list (sly-asdf-read-system-name)))
+  (sly-asdf-oos system 'load-op :force nil)))
+
+(provide 'patch-sly)