$Active::Document->{Saved} = 1;
$Active::Document->Close;