diff --git a/src/builtins/io.pir b/src/builtins/io.pir
index 4a59d917fc0..77fd0b53d9b 100644
--- a/src/builtins/io.pir
+++ b/src/builtins/io.pir
@@ -12,35 +12,6 @@ src/builtins/io.pir - Perl6 builtins for I/O
 
 .namespace []
 
-.sub 'print'
-    .param pmc args            :slurpy
-    .local pmc it, out
-    out = get_hll_global '$OUT'
-    args.'!flatten'()
-    it = iter args
-  iter_loop:
-    unless it goto iter_end
-    $P0 = shift it
-    unless null $P0 goto iter_nonull
-    $P0 = '!FAIL'()
-  iter_nonull:
-    out.'print'($P0)
-    goto iter_loop
-  iter_end:
-    .return (1)
-.end
-
-
-.sub 'say'
-    .param pmc list            :slurpy
-    .local pmc out
-    out = get_hll_global '$OUT'
-    out.'print'(list :flat)
-    out.'print'("\n")
-    .return (1)
-.end
-
-
 =item printf
 
 Parses a format string and prints formatted output according to it.
diff --git a/src/setting/IO.pm b/src/setting/IO.pm
index 4e90921848d..232bc4d5c52 100644
--- a/src/setting/IO.pm
+++ b/src/setting/IO.pm
@@ -68,9 +68,13 @@ multi sub lines(IO $filehandle,
     $filehandle.lines();
 }
 
+multi sub print(Object *@items) { $*OUT.print(@items); }
+
 multi sub prompt($msg) {
     print $msg;
     $*IN.get;
 }
 
+multi sub say(Object *@items) { $*OUT.say(@items); }
+
 # vim: ft=perl6