Index: src/ops/ops.num
===================================================================
--- src/ops/ops.num	(révision 38872)
+++ src/ops/ops.num	(copie de travail)
@@ -1270,3 +1270,4 @@
 find_name_p_sc                 1246
 find_sub_not_null_p_s          1247
 find_sub_not_null_p_sc         1248
+setstdin_p                     1249
Index: src/ops/io.ops
===================================================================
--- src/ops/io.ops	(révision 38872)
+++ src/ops/io.ops	(copie de travail)
@@ -46,7 +46,7 @@
 
 =item B<fdopen>(out PMC, in INT, in STR)
 
-Create ParrotIO object in $1 as a copy of file descriptor $2.
+Create FileHandle object in $1 as a copy of file descriptor $2.
 
 RT#42373: integral file descriptors might not exist outside of the UNIX
      platform.  This op needs work.
@@ -61,17 +61,17 @@
 
 =item B<getstdin>(out PMC)
 
-Create a new ParrotIO object for the stdin file descriptor and
+Create a new FileHandle object for the stdin file descriptor and
 store it in $1
 
 =item B<getstdout>(out PMC)
 
-Create a new ParrotIO object for the stdout file descriptor and
+Create a new FileHandle object for the stdout file descriptor and
 store it in $1
 
 =item B<getstderr>(out PMC)
 
-Create a new ParrotIO object for the stderr file descriptor and
+Create a new FileHandle object for the stderr file descriptor and
 store it in $1
 
 =cut
@@ -90,19 +90,29 @@
 
 #########################################
 
+=item B<setstdin>(invar PMC)
+
+Sets the standard input for a bare C<read> op to go to the supplied FileHandle
+PMC.  Call C<getstdin> first if you care about retaining the previous PMC.
+
 =item B<setstdout>(invar PMC)
 
-Sets the standard output for a bare C<print> op to go to the supplied ParrotIO
+Sets the standard output for a bare C<print> op to go to the supplied FileHandle
 PMC.  Call C<getstdout> first if you care about retaining the previous PMC.
 
 =item B<setstderr>(invar PMC)
 
 Sets the standard error for a bare C<printerr> op to go to the supplied
-ParrotIO PMC.  Call C<getstderr> first if you care about retaining the previous
+FileHandle PMC.  Call C<getstderr> first if you care about retaining the
+previous
 PMC.
 
 =cut
 
+inline op setstdin(invar PMC) :base_io {
+        _PIO_STDIN(interp) = $1;
+}
+
 inline op setstdout(invar PMC) :base_io {
         _PIO_STDOUT(interp) = $1;
 }
Index: docs/book/ch10_opcode_reference.pod
===================================================================
--- docs/book/ch10_opcode_reference.pod	(révision 38872)
+++ docs/book/ch10_opcode_reference.pod	(copie de travail)
@@ -846,7 +846,7 @@
 
   fdopen R<DEST>, R<INT>, R<MODE>
 
-Get a ParrotIO object for handle R<INT> with open mode R<MODE>.
+Get a FileHandle object for handle R<INT> with open mode R<MODE>.
 
 I<Arguments: P, I, S>
 
@@ -1124,7 +1124,7 @@
   getstdin R<DEST>
   getstdout R<DEST>
 
-Get a ParrotIO object for the given standard handle.
+Get a FileHandle object for the given standard handle.
 
 I<Arguments: P>
 
@@ -1787,7 +1787,7 @@
   peek R<DEST>
   peek R<DEST>, R<PIO>
 
-Read the next byte from the given ParrotIO object or from C<stdin> but
+Read the next byte from the given FileHandle object or from C<stdin> but
 don't remove it.
 
 I<Arguments: SR or SR, P>
@@ -2235,11 +2235,13 @@
 
 X<setstderr opcode (PASM)>
 X<setstdout opcode (PASM)>
+X<setstdin  opcode (PASM)>
 
   setstderr R<DEST>
   setstdout R<DEST>
+  setstdin  R<DEST>
 
-Set a ParrotIO object for the given standard handle.
+Set a FileHandle object for the given standard handle.
 
 I<Arguments: P>
 
@@ -2714,7 +2716,7 @@
   tell R<DEST>, R<PIO>
   tell R<UPPER32>, R<LOWER32>, R<PIO>
 
-Return the file position of the given ParrotIO object.
+Return the file position of the given FileHandle object.
 
 I<Arguments: IR, P or IR, I, P>