the file slurping is not working

[Aruna Goke]

I tested the below code on parrot-1.1.0 and it read all the lines in the 
file and tested same code on the latest git update (4th June 2009), it 
outputs only the first line.

#!/usr/bin/perl6
use v6;

my $fname = 'README';

if my $file = open($fname, :r) {
for $file.get-> $line {
say $line;
        }
 } else {
        say  "could not open $fname bcos : $!";
}
close($file);

what is happening?