From d0f981f9cbfb9f8ac6ba6a0f46362f986730f7b1 Mon Sep 17 00:00:00 2001
From: Robby Findler <robby@racket-lang.org>
Date: Mon, 1 Oct 2012 22:52:54 -0500
Subject: [PATCH] fix a bug in color padding code

closes PR 13153
---
 collects/redex/private/traces.rkt | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/collects/redex/private/traces.rkt b/collects/redex/private/traces.rkt
index 6d7a4ce1eb..5906c2445c 100644
--- a/collects/redex/private/traces.rkt
+++ b/collects/redex/private/traces.rkt
@@ -391,7 +391,7 @@
   ;; produces a list whose length matches defaults but
   (define (fill-out l defaults)
     (let loop ([l l]
-               [default defaults])
+               [defaults defaults])
       (cond
         [(null? l) defaults]
         [else