implementation of IO.ins

diff --git a/src/classes/IO.pir b/src/classes/IO.pir
index 2459c9c..aa4c77a 100644
--- a/src/classes/IO.pir
+++ b/src/classes/IO.pir
@@ -14,7 +14,7 @@ This file implements the IO file handle class.
 .sub '' :anon :init :load
     .local pmc p6meta
     p6meta = get_hll_global ['Perl6Object'], '$!P6META'
-    $P0 = p6meta.'new_class'('IO', 'parent'=>'Any', 'attr'=>'$!PIO')
+    $P0 = p6meta.'new_class'('IO', 'parent'=>'Any', 'attr'=>'$!PIO $!ins')
     $P0.'!MUTABLE'()
     p6meta.'new_class'('IOIterator', 'parent'=>'Perl6Object', 'attr'=>'$!IO')
 
@@ -40,6 +40,18 @@ Reads a line from the file handle.
     .return ($P0)
 .end
 
+=item ins
+
+Reports the number of records (usu. lines) read so far.
+
+=cut
+
+.sub 'ins' :method
+    $P0 = getattribute self, "$!ins"
+    $I0 = $P0
+    .return ($I0)
+.end
+
 
 =back
 
@@ -77,9 +89,14 @@ Read a single line and return it.
 
 .namespace ['IOIterator']
 .sub 'item' :method :vtable('shift_pmc')
-    .local pmc pio, chomper
+    .local pmc pio, ins, chomper
     $P0 = getattribute self, "$!IO"
     pio = getattribute $P0, "$!PIO"
+    ins = getattribute $P0, "$!ins"
+    $I0 = ins
+    inc $I0
+    ins = $I0
+    setattribute $P0, "$!ins", ins
     pio = '!DEREF'(pio)
     $P0 = pio.'readline'()
     chomper = get_hll_global 'chomp'
@@ -94,7 +111,7 @@ Read all of the lines and return them as a List.
 
 .namespace ['IOIterator']
 .sub 'list' :method
-    .local pmc pio, res, chomper
+    .local pmc pio, ins, res, chomper
     $P0 = getattribute self, "$!IO"
     pio = getattribute $P0, "$!PIO"
     pio = '!DEREF'(pio)
@@ -102,6 +119,11 @@ Read all of the lines and return them as a List.
     chomper = get_hll_global 'chomp'
 
   loop:
+    ins = getattribute $P0, "$!ins"
+    $I0 = ins
+    inc $I0
+    ins = $I0
+    setattribute $P0, "$!ins", ins
     $S0 = pio.'readline'()
     if $S0 == '' goto done
     $S0 = chomper($S0)