diff --git a/lib/chibi/process.scm b/lib/chibi/process.scm
index 6a115d7c..4c6b38dd 100644
--- a/lib/chibi/process.scm
+++ b/lib/chibi/process.scm
@@ -113,6 +113,9 @@
        (waitpid pid 0)
        res))))
 
+(define (process->sexp str)
+  (call-with-input-string (process->string str) read))
+
 (define (process->output+error str)
   (call-with-process-io
    str
diff --git a/lib/chibi/process.sld b/lib/chibi/process.sld
index 2744a26e..9508d74a 100644
--- a/lib/chibi/process.sld
+++ b/lib/chibi/process.sld
@@ -15,7 +15,8 @@
           signal/stop       signal/tty-stop    signal/tty-input
           signal/tty-output wait/no-hang
           call-with-process-io
-          process->string process->string-list process->output+error)
+          process->string process->sexp
+          process->string-list process->output+error)
   (import (chibi) (chibi io) (chibi string) (chibi filesystem))
   (cond-expand (threads (import (srfi 18) (srfi 33))) (else #f))
   (include-shared "process")