diff --git a/scheme/read.sld b/scheme/read.sld
index 8dbb9282..38b7f38e 100644
--- a/scheme/read.sld
+++ b/scheme/read.sld
@@ -16,6 +16,11 @@
     include
     include-ci
   )
+  (inline
+    in-port:get-cnum
+    in-port:get-lnum
+    in-port:get-buf
+  )
   (begin
 
 (define-syntax include