X-Git-Url: https://git.distorted.org.uk/~mdw/sod/blobdiff_plain/e674612eb9e1a1dde2522260163a93a13ed44a0f..8eb242b160e163a1cfc6e810aeda4788116bba1a:/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 @@
   "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