diff --git a/scheme/big/more-port.scm b/scheme/big/more-port.scm
index 38c205c..a30a4b4 100644
--- a/scheme/big/more-port.scm
+++ b/scheme/big/more-port.scm
@@ -182,7 +182,7 @@
    (lambda (ignore)
      (list 'string-input-port))
    (lambda (ignore)
-     (values))
+     (if #f #f))
    (lambda (ignore buffer start needed)
      (eof-object))
    (lambda (port) #f)))