fixed PR 9336

svn: r10062 original commit: b38215d4e9c4a10853fc39ff22692b8c8dfe8f10
2008-05-30 20:29:29 +00:00 · 2008-05-30 20:29:29 +00:00 · ec38cb53e4
commit ec38cb53e4
parent a57f9793d7
1 changed files with 1 additions and 1 deletions
--- 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)