From c2e81d4aa098ee551c81eaedc31d3bd8a746577b Mon Sep 17 00:00:00 2001
From: Jay McCarthy <jay@racket-lang.org>
Date: Mon, 25 Oct 2010 14:50:09 -0600
Subject: [PATCH] Probably fixing a problem reported by Eli that I don't know
 how to recreate

---
 collects/meta/build/bundle | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/collects/meta/build/bundle b/collects/meta/build/bundle
index b119d376c4..41be9f781a 100755
--- a/collects/meta/build/bundle
+++ b/collects/meta/build/bundle
@@ -209,7 +209,7 @@
                    (if (and (directory-exists? "racket") (not *btgz?*))
                      (filtered-map
                       (lambda (x) ; only directories contain stuff we need
-                        (and (directory-exists? x) (get-tree x)))
+                        (and (directory-exists? x) (get-tree x "racket")))
                       (dir-list))
                      (let ([trees (filtered-map
                                    (lambda (x)