Changes to Test Script 1 between r6 and r7

======
set ret [list]
foreach line [split [getpage 0] \n] {
    lappend ret " = $line = " -->     lappend ret "$line"
}
return $ret
return [join $ret \n]
======

Legend

     Only in r6
     Only in r7
     -->      Modified slightly between r6 and r7