diff --git a/src/lsp/process.lsp b/src/lsp/process.lsp
index 8e306af00..545f10acf 100644
--- a/src/lsp/process.lsp
+++ b/src/lsp/process.lsp
@@ -43,9 +43,9 @@
         (unless (and wait (null status) (null code) (null pid))
           (setf (external-process-pid process) nil
                 (external-process-%status process) status
-                (external-process-code process) code)))))
+                (external-process-%code process) code)))))
   (values (external-process-%status process)
-          (external-process-code process) code))
+          (external-process-%code process)))
 
 ;;;
 ;;; Backwards compatible SI:SYSTEM call. We avoid ANSI C system()