X-Git-Url: https://www.chiark.greenend.org.uk/ucgi/~mdw/git/sod/blobdiff_plain/e674612eb9e1a1dde2522260163a93a13ed44a0f..b871725cbda0454d6b2a988f76588a69fd3a0511:/src/module-output.lisp

diff --git a/src/module-output.lisp b/src/module-output.lisp
index 1bfb34f..c3c61d6 100644
--- a/src/module-output.lisp
+++ b/src/module-output.lisp
@@ -87,7 +87,8 @@ (defun output-module (module reason stream)
   "Write the MODULE to STREAM, giving the output machinery the REASON.
 
    This is the top-level interface for producing output."
-  (let ((*done-one-off-output* nil)
+  (let ((*print-right-margin* 77)
+	(*done-one-off-output* nil)
 	(sequencer (make-instance 'sequencer))
 	(stream (if (typep stream 'position-aware-output-stream)
 		    stream