fixed PR 9336

svn: r10062
2008-05-30 20:29:29 +00:00 · 2008-05-30 20:29:29 +00:00 · b38215d4e9
commit b38215d4e9
parent 1c4fab4bfd
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)