Update control.fs

Fix a race condition causing a memory leak