From 67d0fd934c5da22fda96a83bf9eaf6b96af2764a Mon Sep 17 00:00:00 2001
From: Doug Coleman <doug.coleman@gmail.com>
Date: Mon, 26 Jan 2009 20:16:18 -0600
Subject: [PATCH] fix unit test

---
 basis/io/directories/search/search-tests.factor | 7 +++----
 1 file changed, 3 insertions(+), 4 deletions(-)

diff --git a/basis/io/directories/search/search-tests.factor b/basis/io/directories/search/search-tests.factor
index 63c9483331..a8b8bf9215 100644
--- a/basis/io/directories/search/search-tests.factor
+++ b/basis/io/directories/search/search-tests.factor
@@ -4,8 +4,7 @@ IN: io.directories.search.tests
 
 [ t ] [
     [
-        10 [ "io.paths.test" "gogogo" make-unique-file* ] replicate
-        current-directory get t [ ] find-all-files
-    ] with-unique-directory
-    [ natural-sort ] bi@ =
+        10 [ "io.paths.test" "gogogo" make-unique-file ] replicate
+        current-temporary-directory get t [ ] find-all-files
+    ] with-unique-directory drop [ natural-sort ] bi@ =
 ] unit-test