need to account for extra two bytes \r\n when reading response with r…

…ead-string

git-svn-id: https://code.call-cc.org/svn/chicken-eggs/release/4/hen/trunk@26205 fca3e652-9b03-0410-8d7b-ac86a6ce46c4

hen.scm

@@ -124,7 +124,9 @@
       ...)]))
 
 (define (read-stats res tcp-in #!optional (parser parse-yaml-alist))
-  (if* (second-match "^OK (\\d+)$" res) (parser (read-string (string->number it) tcp-in))))
+  (if* (second-match "^OK (\\d+)$" res)
+       (parser (string-trim-last (read-string (+ 2 (string->number it)) tcp-in)))
+       res))
 
 (define-hen-command-list
   [use (tube)]