diff --git a/lib/scheme/process-context.sld b/lib/scheme/process-context.sld
index a53d4507..29aab00a 100644
--- a/lib/scheme/process-context.sld
+++ b/lib/scheme/process-context.sld
@@ -2,4 +2,6 @@
 (define-library (scheme process-context)
   (import (chibi) (srfi 98) (only (chibi process) exit))
   (export get-environment-variable get-environment-variables
-          command-line exit))
+          command-line exit emergency-exit)
+  ;; TODO: Make exit unwind and finalize properly.
+  (begin (define emergency-exit exit)))