src/dynoplibs/io.ops multi-char rec-sep GH #812

diff --git a/src/dynoplibs/io.ops b/src/dynoplibs/io.ops
index 7a809a9..82205c1 100644
--- a/src/dynoplibs/io.ops
+++ b/src/dynoplibs/io.ops
@@ -75,7 +75,9 @@ This switches the filehandle to linebuffer-mode.
 =cut

 inline op readline(out STR, invar PMC) :base_io {
-    $1 = Parrot_io_readline(interp, $2);
+    STRING *record_separator;
+    GET_ATTR_record_separator(interp, SELF, record_separator);
+    $1 = Parrot_io_readline_s(interp, $2, record_separator);
 }

 ##########################################