diff --git a/src/cmp/sysfun.lsp b/src/cmp/sysfun.lsp
index d187439c5..61a37a6cc 100644
--- a/src/cmp/sysfun.lsp
+++ b/src/cmp/sysfun.lsp
@@ -939,6 +939,7 @@
     si::do-defsetf si::do-define-setf-method
     ;; process.lsp
     ext:system
+    ext:run-program
     ;; pprint.lsp
     pprint-fill copy-pprint-dispatch pprint-dispatch
     pprint-linear pprint-newline pprint-tab pprint-tabular
diff --git a/src/lsp/process.lsp b/src/lsp/process.lsp
index 272d78199..1d1f02bf6 100644
--- a/src/lsp/process.lsp
+++ b/src/lsp/process.lsp
@@ -61,7 +61,7 @@
                       (if-input-does-not-exist nil)
                       (if-output-exists :error)
                       (if-error-exists :error)
-                      (external-format () :default)
+                      (external-format :default)
                       #+windows (escape-arguments t))
 
   (flet ((process-stream (which default &rest args)