gnat expect - help please

["RasikaSrinivasan@gmail.com" <RasikaSrinivasan@gmail.com>]

I have trouble with gnat.expect. Hope someone can spot what is wrong
or wrong with my understanding :

The following is a sample program that illustrates the problem :

- I was expecting the prompt "Password" to be hidden ie between my
process and the spawned process. instead i do see the prompt in my
bash session.

- so my call to gnat.expect.expect always fails with a timeout.

- after such a timeout my bash session behaves strange (no echo)

pointers appreciated.

Environment -

gnat-gpl-2007-i686-gnu-linux-libc2.3-bin.tar.gz
on Suse 10.2

================================================================
with Text_Io; use Text_Io ;
with System.Os_Lib ;
with Gnat.Expect ; use Gnat.Expect ;


procedure Hello is

   Pd : Gnat.Expect.Process_Descriptor ;
   Prompt : Gnat.Expect.Expect_Match ;
begin

   Gnat.Expect.Non_Blocking_Spawn( Pd ,
                                   "scp" ,
                                   ( 1 => new String'("hello") ,
                                     2 => new
String'("rs3@ichabod:bin/") )) ;
   Gnat.Expect.Expect(Pd,Prompt,"Password:",Timeout=>10000) ;
   if Prompt = Gnat.Expect.Expect_Timeout
     then
        Put_Line("Command timedout") ;
     else
        Put_Line(Gnat.Expect.Expect_Match'Image(Prompt));
   end if ;
end Hello ;