summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
-rw-r--r--src/geiser/geiser.ss7
1 files changed, 4 insertions, 3 deletions
diff --git a/src/geiser/geiser.ss b/src/geiser/geiser.ss
index 3a5fc9f..e506a74 100644
--- a/src/geiser/geiser.ss
+++ b/src/geiser/geiser.ss
@@ -18,9 +18,10 @@
(lambda (e)
(debug-condition e) ; save the condition for the debugger
(k `((result "")
- (output . ,(with-output-to-string
- (lambda () (display-condition e))))
- (error (key . condition)))))
+ (output . ,(get-output-string output-string))
+ (error (key . condition)
+ (msg . ,(with-output-to-string
+ (lambda () (display-condition e))))))))
(lambda ()
(call-with-values
(lambda ()