script-fu - Script-Fu を使用すると、PNG を読み込んで保存するとアルファが失われます

Question

PNGファイルをロードし、最大圧縮で再度保存するスクリプトをGIMPで作成しようとしています（他の処理ステップも追加する予定です）。ただし、次のスクリプトはアルファ情報を破壊しているようです。

(define (process-png pattern)
  (let* (
      (filelist (cadr (file-glob pattern 1)))
    )
    (while (not (null? filelist))
      (begin
        (catch ()
          (let* (
              (filename (car filelist))
              (image (car (file-png-load RUN-NONINTERACTIVE filename filename)))
            )
            (begin
              (file-png-save2 RUN-NONINTERACTIVE
                  image (car (gimp-image-get-active-drawable image))
                  filename filename
                  0 9 0 0 0 0 0 0 0)
              (gimp-image-delete image)
            )
          )
        )
        (set! filelist (cdr filelist))
      )
    )
  )
)

たとえば、JQuery アイコンの半透明のピクセルはすべて完全に透明になり、すべてがエイリアス化されているように見えます。

これはどのように修正できますか？