ponk% diff -rc memcached memcached-patched
diff -rc memcached/memcached.scm memcached-patched/memcached.scm
*** memcached/memcached.scm     2013-07-24 10:44:17.770617617 -0700
--- memcached-patched/memcached.scm     2013-07-24 10:45:32.028857581 -0700
***************
*** 45,50 ****
--- 45,51 ----
    server-handle? server-handle-host server-handle-port)

   (import scheme (except chicken get) )
+  (use extras)

   (require-library extras data-structures tcp srfi-13 srfi-14 srfi-69)
   (import (only srfi-13 string-prefix? string-tokenize string-drop string-skip)
***************
*** 153,159 ****
      (let ((w (string-tokenize s)))
        (and (pair? w) (string=? (car w) "VALUE")
           (let ((len (string->number (car (cdddr w)))))
!            (let ((data (nread-line h len)))
               data))))))


--- 154,160 ----
      (let ((w (string-tokenize s)))
        (and (pair? w) (string=? (car w) "VALUE")
           (let ((len (string->number (car (cdddr w)))))
!            (let ((data (read-string len (server-handle-in h))))
               data))))))