--- modules/jpeg/jpeg.tcl	2014-02-11 14:04:18.000000000 -0500
+++ modules/jpeg/jpeg.tcl	2014-12-09 00:28:21.000000000 -0500
@@ -364,5 +364,8 @@
     set fh [openJFIF $file]
     set r [catch {getExifFromChannel $fh $type} err]
-    close $fh
+    if {$err != ""} {
+	# If err is empty, the file is closed already
+	close $fh
+    }
     return -code $r $err
 }