From d970a632bb3f1e210704d465629ff67ac2bfc6f8 Mon Sep 17 00:00:00 2001
From: Slava Pestov <slava@slava-pestovs-macbook-pro.local>
Date: Tue, 11 Nov 2008 19:51:12 -0600
Subject: [PATCH] Fix nodes>quot

---
 basis/compiler/tree/debugger/debugger.factor | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/basis/compiler/tree/debugger/debugger.factor b/basis/compiler/tree/debugger/debugger.factor
index 214be18148..a1d8773484 100644
--- a/basis/compiler/tree/debugger/debugger.factor
+++ b/basis/compiler/tree/debugger/debugger.factor
@@ -86,7 +86,7 @@ M: #shuffle node>quot
         {
             [ dup [ in-r>> empty? ] [ out-r>> empty? ] bi and ]
             [
-                dup shuffle-effect pretty-shuffle
+                shuffle-effect dup pretty-shuffle
                 [ % ] [ shuffle-node boa , ] ?if
             ]
         }