diff --git a/Pascal/FileEntry.cpp b/Pascal/FileEntry.cpp
index 590cb25..5bf9bef 100644
--- a/Pascal/FileEntry.cpp
+++ b/Pascal/FileEntry.cpp
@@ -91,6 +91,13 @@ FileEntry::~FileEntry()
 void FileEntry::setFileKind(unsigned kind)
 {
     _fileKind = kind;
+    if (_pageSize)
+    {
+        delete _pageSize;
+        _fileSize = 0;
+        _pageSize = NULL;
+    }
+    
     parent()->writeEntry(this);
 }