setting the current working directory

[Terrence Brannon <metaperl@urth.org>]

I have a script that I would like to run from (getenv "HOME")

Is there a way to set the current working directory of a scsh script? 
Code enclosed for reference.
#!/home/metaperl/install/scheme48/bin/scsh \
-o let-opt -e main -s
!#

(define base-dump "base-dump")
(define tar-file (string-append base-dump ".tar"))
(define gz-file  (string-append tar-file ".gz"))

(define hosts
 (list "metaperl@urth.org" "princepawn@perlmonk.org" 
"metaperl@eskimo.com"))
(define backup-root "/home/metaperl/")
(define backup-files
 (append

  (glob "hacks/masonstar/*.scm")

  (list

   ".bashrc"

   "sbin/netdump"


   "hacks/scheme/transpose.scm"

   "psl/teaching/M.Ed-Schools/drexel-sla-ref.doc"
   "psl/teaching/M.Ed-Schools/drexel-stmtofpurpose.sxw"

   "psl/metaphysics/kriya-questions.txt"
   "psl/wolfram-fruit.tm"
   "psl/diary.scm")



  ))


(define (main args)
 (let* (
   (backup-files (map (lambda (f) (string-append backup-root f))
              backup-files))
   )
   (run (tar cvf ,tar-file ,@backup-files))
   (run (gzip --best --force ,tar-file))
   (for-each
    (lambda (host)
      (let (          (scp-host (string-append host ":"))         )
    (run (scp ,gz-file ,scp-host))))
    hosts)))