Index: md5.scm =================================================================== RCS file: /cvsroot/scsh/scsh/scsh/md5.scm,v retrieving revision 1.1 diff -u -r1.1 md5.scm --- md5.scm 27 Jun 2002 12:14:23 -0000 1.1 +++ md5.scm 31 Dec 2004 18:02:20 -0000 @@ -70,7 +70,9 @@ (init-md5-context! context) (let lp () (let ((got (read-block buffer 0 buffer-size port))) - (cond ((< got buffer-size) + (cond ((eof-object? got) + (md5-context->md5-digest context)) + ((< got buffer-size) (if (not (eof-object? (peek-char port))) (error "read-block didn't read port to the end")) (update-md5-context! context (substring buffer 0 got))