From ec38cb53e4bcf90e9c1f2c77c17ad44c34769f6e Mon Sep 17 00:00:00 2001
From: Robby Findler <robby@racket-lang.org>
Date: Fri, 30 May 2008 20:29:29 +0000
Subject: [PATCH] fixed PR 9336

svn: r10062

original commit: b38215d4e9c4a10853fc39ff22692b8c8dfe8f10
---
 collects/framework/private/scheme.ss | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/collects/framework/private/scheme.ss b/collects/framework/private/scheme.ss
index 45c57142..65c08878 100644
--- a/collects/framework/private/scheme.ss
+++ b/collects/framework/private/scheme.ss
@@ -1768,7 +1768,7 @@
       (let ([pref
              (let loop ([pref pref][sel sel])
                (if (zero? sel)
-                   (cons sel (cdr pref))
+                   (cons x (cdr pref))
                    (cons (car pref) (loop (cdr pref) (sub1 sel)))))])
         (preferences:set 'framework:tabify pref))))
   (define-values (begin-list-box begin-regexp-text)