[Script-fu] Un script qui plante

J'essaie d'écrire mon premier script-fu pour Gimp.

Le but est de redimensionner un fichier-image d'un format quelconque si
ses dimensions sont trop grandes et d'enregistrer le résultat au format
jpg. Voila le script :

(define (retaille FICHIER LARGEUR HAUTEUR CIBLE)
((set! image (car (gimp-file-load 1 FICHIER FICHIER)))
(set! w (car (gimp-image-width image)))
(set! h (car (gimp-image-height image)))
(set! r1 (/ w LARGEUR))
(set! r2 (/ h HAUTEUR))
(set! r (max r1 r2))
(if (> r 1) (gimp-image-scale image (/ w r) (/ h r)))
(file-jpeg-save 1 image (car(gimp-image-active-drawable image)) CIBLE
CIBLE 1 0 0 0 "Pouet-Pouet" 0 1 0 1)
(gimp-quit 1)
)
)

(script-fu-register "retaille"
"<Toolbox>/Xtns/Script-Fu/Perso/Mon test..."
"Blabla"
"Jean-Pierre Pourrez"
"Jean-Pierre Pourrez"
"Novembre 2003"
""
SF-FILENAME "Fichier" ""
SF-VALUE "Largeur" "750"
SF-VALUE "Hauteur" "550"
SF-FILENAME "Cible" ""
)

En utilisant la console Script-Fu, cela marche.
Mais si j'essaie d'executer à partir du menu, j'ai droit à l'erreur :
Erreur Script-fu durant l'execution de (retaille
"/home/jpierre/cn1.31c" 750 550 "/home/jpierre/cn31c.jpg"
ERROR: Bad-function (see errobj)

Quelqu'un a-t-il une idée ?

Merci pour votre aide par avance.