diff --git a/extensions/lisp-mode/macroexpand.lisp b/extensions/lisp-mode/macroexpand.lisp
index 1f58b5965..f01cc3686 100644
--- a/extensions/lisp-mode/macroexpand.lisp
+++ b/extensions/lisp-mode/macroexpand.lisp
@@ -254,6 +254,16 @@ Do you want to disable this message in the future?"
                            (when self
                              (move-point (buffer-point buffer) p))))))))
 
+(define-command lisp-macroexpand-in-place () ()
+  (check-connection)
+  (lisp-eval-async
+   `(micros:swank-macroexpand-1
+     (lem-lisp-mode/internal::form-string-at-point))
+   (lambda (string)
+     (kill-sexp)
+     (insert-string (current-point) string)
+     (indent-buffer (current-buffer)))))
+
 (define-command lisp-macroexpand () ()
   (check-connection)
   (macroexpand-internal 'micros:swank-macroexpand-1))