FIXES BEFORE REORG

- small fixes in fclose
- init changed