diff --git a/code/lispinit.lisp b/code/lispinit.lisp
index 10a07c90c2d5d5364350bc50c7fece85a24d6cce..acf29d31b164f350ffb2412fd1ceae3b9312e289 100644
--- a/code/lispinit.lisp
+++ b/code/lispinit.lisp
@@ -5,7 +5,7 @@
 ;;; Carnegie Mellon University, and has been placed in the public domain.
 ;;;
 (ext:file-comment
-  "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/code/lispinit.lisp,v 1.59 2000/01/17 16:45:56 dtc Exp $")
+  "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/code/lispinit.lisp,v 1.60 2000/09/14 14:31:52 dtc Exp $")
 ;;;
 ;;; **********************************************************************
 ;;;
@@ -537,6 +537,7 @@
   +, ///, //, /, and -."
   (setf - form)
   (let ((results (multiple-value-list (eval form))))
+    (finish-standard-output-streams)
     (setf /// //
 	  // /
 	  / results