From 592df743369965624f001785a3d578794f85c0b3 Mon Sep 17 00:00:00 2001
From: Doug Coleman <doug.coleman@gmail.com>
Date: Sat, 30 Aug 2008 13:06:06 -0500
Subject: [PATCH] oops fix walker..

---
 basis/concurrency/messaging/messaging.factor | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/basis/concurrency/messaging/messaging.factor b/basis/concurrency/messaging/messaging.factor
index 7173e8f408..12b5d270d4 100755
--- a/basis/concurrency/messaging/messaging.factor
+++ b/basis/concurrency/messaging/messaging.factor
@@ -11,7 +11,7 @@ GENERIC: send ( message thread -- )
 
 : mailbox-of ( thread -- mailbox )
     dup mailbox>> [ ] [
-        <mailbox> swap >>mailbox
+        <mailbox> [ >>mailbox drop ] keep
     ] ?if ;
 
 M: thread send ( message thread -- )