added fclose