fixed bug from mailing list

svn: r7807 original commit: b59bcf44afe7472c86325cf225cb6423dea0f0ea
2007-11-21 21:01:18 +00:00 · 2007-11-21 21:01:18 +00:00 · a70700c3ff
commit a70700c3ff
parent fcc9e5f98a
1 changed files with 1 additions and 1 deletions
--- a/collects/framework/private/text.ss
+++ b/collects/framework/private/text.ss
@ -1578,7 +1578,7 @@ WARNING: printf is rebound in the body of the unit to always
                                 (values (reverse (cons (cons (bytes->string/utf-8 converted-bytes) key) acc))
                                         (enqueue 
                                          (cons (subbytes the-bytes
-                                                          (- (bytes-length the-bytes) src-read-k) 
+                                                          src-read-k
                                                          (bytes-length the-bytes))
                                                key)
                                          (empty-queue)))