diff --git a/scheme/file.sld b/scheme/file.sld
new file mode 100644
index 00000000..277c6365
--- /dev/null
+++ b/scheme/file.sld
@@ -0,0 +1,12 @@
+(define-library (scheme file)
+  (export
+    call-with-input-file
+    call-with-output-file
+  )
+  (import (scheme base))
+  (begin
+    (define (call-with-input-file string proc)
+      (call-with-port (open-input-file string) proc))
+    (define (call-with-output-file string proc)
+      (call-with-port (open-output-file string) proc))
+))