diff --git a/src/lsp/process.lsp b/src/lsp/process.lsp
index 41d5f950e..51e0f77af 100644
--- a/src/lsp/process.lsp
+++ b/src/lsp/process.lsp
@@ -23,6 +23,6 @@
 
 (defun external-process-status (external-process)
   (let ((status (external-process-%status external-process)))
-    (when (eq status :running)
-      (ext:external-process-wait external-process nil)
-      (values status (external-process-%code external-process)))))
+    (if (eq status :running)
+        (ext:external-process-wait external-process nil)
+        (values status (external-process-%code external-process)))))