diff --git a/gash/compat/textual-ports.scm b/gash/compat/textual-ports.scm
index 8e0c461..05fafd1 100644
--- a/gash/compat/textual-ports.scm
+++ b/gash/compat/textual-ports.scm
@@ -50,7 +50,8 @@
   (export make-soft-port
           get-char
           unget-char
-          lookahead-char)
+          lookahead-char
+          get-string-all)
 
   (define-record-type <soft-input-port>
     (make-soft-input-port thunk buffer)
@@ -90,4 +91,6 @@
   (define (lookahead-char port)
     (let ((result (get-char port)))
       (unget-char port result)
-      result)))
+      result))
+
+  (define get-string-all read-string))