Index: stream-output.lisp
===================================================================
RCS file: /project/mcclim/cvsroot/mcclim/stream-output.lisp,v
retrieving revision 1.63
diff -u -r1.63 stream-output.lisp
--- stream-output.lisp	23 Oct 2008 20:49:58 -0000	1.63
+++ stream-output.lisp	25 Jul 2009 17:14:37 -0000
@@ -202,6 +202,11 @@
   (with-sheet-medium (medium stream)
     (medium-force-output medium)))
 
+(defmethod stream-finish-output :after ((stream
+					standard-extended-output-stream))
+  (with-sheet-medium (medium stream)
+    (medium-finish-output medium)))
+
 (defmethod compose-space ((pane standard-extended-output-stream) &key width height)
   (declare (ignorable width height))