&rfx_sendmsg( qq{
  (begin
    (let* ((basename (car (strbreakup (car (last (strbreakup "$in" DIR-SEPARATOR))) "$img_ext")))
           (input-file (string-append "$curtmpdir" DIR-SEPARATOR "gap-clip" DIR-SEPARATOR basename ".xcf"))
           (image (car (gimp-file-load RUN-NONINTERACTIVE input-file input-file)))
                   (layer (car (gimp-image-get-active-layer image))) )
      (rfx-save-frame image "$out") 
      )
    )
    }
  );

