diff --git a/lib/chibi/io.sld b/lib/chibi/io.sld
index 1ee8ccbb..807c99dd 100644
--- a/lib/chibi/io.sld
+++ b/lib/chibi/io.sld
@@ -4,6 +4,7 @@
           port-fold port-fold-right port-map
           port->list port->string-list port->sexp-list
           port->string port->bytevector
+          file->string file->bytevector
           file-position set-file-position! seek/set seek/cur seek/end
           make-custom-input-port make-custom-output-port
           make-custom-binary-input-port make-custom-binary-output-port
diff --git a/lib/chibi/io/io.scm b/lib/chibi/io/io.scm
index 988dd670..259b461c 100644
--- a/lib/chibi/io/io.scm
+++ b/lib/chibi/io/io.scm
@@ -240,6 +240,12 @@
         ((eof-object? c) (get-output-bytevector out))
       (write-u8 c out))))
 
+(define (file->string path)
+  (call-with-input-file path port->string))
+
+(define (file->bytevector path)
+  (call-with-input-file path port->bytevector))
+
 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
 ;; custom port utilities