aaargh ! Weirdness with with-cwd

[briand@aracnet.com]

Here's the code (& <=> string-append) :

  (begin
    (with-cwd
     (begin (display (cwd))
            (newline)
             (& "./sys/" impl-name))
     etc...

Here's the results:
~/src/scheme/bench $ ./bench -o quicktest 

Error: 2
       "No such file or directory"
       #{Procedure 12963 (%chdir in scsh-level-0)}
       "./sys/bigloo-int"
Processing option file 'quicktest'.
.....
Done.

systems validated


[BENCHMARK deriv ]
/home/briand/src/scheme/bench

^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ !!!

~/src/scheme/bench $ pwd
/home/briand/src/scheme/bench
~/src/scheme/bench $ ls sys
CVS     bigloo-int   gambit-int  mzscheme  scheme48  stklos
bigloo  chicken-int  mit-int     rs-int    scm

What the heck !  

Works fine from the command line, but it's broken in my (formerly
working with older versions of scsh) script.  It also works if I use
an absolute pathname - implying I've got a bug.  But (cwd) tells me
the right thing ! Aaaargh !


Brian

-- 

   "There is no right place for the dead to live."

    -- Kai, last of the Brunnen-G