diff --git a/src/wxcommon/PSDC.cxx b/src/wxcommon/PSDC.cxx
index b947edcb40..c8f33e1920 100644
--- a/src/wxcommon/PSDC.cxx
+++ b/src/wxcommon/PSDC.cxx
@@ -201,6 +201,10 @@ void wxPSStream::Out(long l)
   Out(buf);
 }
 
+void wxPSStream::flush() {
+  scheme_flush_output((Scheme_Object *)f);
+}
+
 long wxPSStream::tellp(void) {
   return scheme_set_file_position((Scheme_Object *)f, -1);
 }
@@ -1683,6 +1687,7 @@ void wxPostScriptDC::EndDoc (void)
         buf[a - bot] = 0;
         pstream->seekp(bot + delta);
         pstream->Out(buf);
+        pstream->flush();
         a = bot;
       }
       pstream->seekp(fontlistpos);
diff --git a/src/wxcommon/Region.h b/src/wxcommon/Region.h
index 2a1a3eee62..08c3d14490 100644
--- a/src/wxcommon/Region.h
+++ b/src/wxcommon/Region.h
@@ -23,6 +23,8 @@ class wxPSStream : public wxObject {
   void Out(long l);
   void Out(int i);
 
+  void flush();
+
   long tellp(void);
   void seekp(long pos);