[gimp] Fixed an error in the close-port function. Closes bug #719396.

[Kevin Cozens <kcozens src gnome org>]

commit a7e24a64b7f5af1fbedf479c6ef4ed6ac6dfdbdb
Author: Kevin Cozens <kevin ve3syb ca>
Date:   Mon Dec 2 19:46:18 2013 -0500

    Fixed an error in the close-port function. Closes bug #719396.

 plug-ins/script-fu/scripts/script-fu.init |    2 +-
 1 files changed, 1 insertions(+), 1 deletions(-)
---
diff --git a/plug-ins/script-fu/scripts/script-fu.init b/plug-ins/script-fu/scripts/script-fu.init
index ba96022..c8680bc 100644
--- a/plug-ins/script-fu/scripts/script-fu.init
+++ b/plug-ins/script-fu/scripts/script-fu.init
@@ -606,7 +606,7 @@
 
 (define (close-port p)
      (cond
-          ((input-output-port? p) (close-input-port (close-output-port p)))
+          ((input-output-port? p) (close-input-port p) (close-output-port p))
           ((input-port? p) (close-input-port p))
           ((output-port? p) (close-output-port p))
           (else (throw "Not a port" p))))