From e63138ef1037bcaf3521382fb17acaeef23093a0 Mon Sep 17 00:00:00 2001
From: Matthew Flatt <mflatt@racket-lang.org>
Date: Fri, 25 May 2007 02:40:41 +0000
Subject: [PATCH] fix text-mode reading of test case boxes

svn: r6289
---
 collects/wxme/test-case.ss | 16 +++++++---------
 1 file changed, 7 insertions(+), 9 deletions(-)

diff --git a/collects/wxme/test-case.ss b/collects/wxme/test-case.ss
index 26f56b9fc8..1618aa8759 100644
--- a/collects/wxme/test-case.ss
+++ b/collects/wxme/test-case.ss
@@ -52,14 +52,12 @@
                          [collapsed? (= 1 (send stream read-integer "test-case-box collapsed?"))]
                          [error-box? (= 1 (send stream read-integer "test-case-box error-box?"))])])])
            (if text?
-               (apply
-                bytes-append
-                (map concat
-                     (send v get-comment)
-                     (send v get-test)
-                     (send v get-expected)
-                     (send v get-predicate)
-                     (send v get-should-raise)
-                     (send v error-message)))
+               (bytes-append
+                (or (send v get-comment) #"")
+                (or (send v get-test) #"")
+                (or (send v get-expected) #"")
+                (or (send v get-predicate) #"")
+                (or (send v get-should-raise) #"")
+                (or (send v get-error-message) #""))
                v)))
        (super-new)))))