From a3768d00eb95f5a955c8eec7ebb69c3926ed2e18 Mon Sep 17 00:00:00 2001
From: Robby Findler <robby@racket-lang.org>
Date: Fri, 1 May 2009 20:38:26 +0000
Subject: [PATCH] none of the various render-* worked under linux, due to a
 platform-specific default in the way ps-setup works.

svn: r14678
---
 collects/redex/private/pict.ss | 1 +
 1 file changed, 1 insertion(+)

diff --git a/collects/redex/private/pict.ss b/collects/redex/private/pict.ss
index 43d3e8edff..010ea726fb 100644
--- a/collects/redex/private/pict.ss
+++ b/collects/redex/private/pict.ss
@@ -454,6 +454,7 @@
   (let ([ps-setup (make-object ps-setup%)])
     (send ps-setup copy-from (current-ps-setup))
     (send ps-setup set-file filename)
+    (send ps-setup set-mode 'file)
     (parameterize ([current-ps-setup ps-setup])
       (make-object post-script-dc% #f #f))))