More specifically, why doesn't this work:
(define (script-fu-add-corners2 infile)
(let*
(theImage (car (file-jpeg-load 1 infile infile)))
(gimp-display-image-new theImage)
)
)
(script-fu-register
"script-fu-add-corners2"
"<Toolbox>/Xtns/Script-Fu/DK's Stuff/Add Corners 2"
"Adds corners"
"D Kotch"
"Copyright 2005, D Kotch"
"September 24, 2005"
""
SF-FILENAME "FileName" "C:/Program Files/GIMP-2.0/share/gimp/2.0/scripts/IMG_1322.jpg")