2 files changed, 5 insertions, 1 deletions
diff --git a/plugins/Watrack/status/i_st_vars.inc b/plugins/Watrack/status/i_st_vars.inc
index 50113b293c..4db2bbb44c 100644
--- a/plugins/Watrack/status/i_st_vars.inc
+++ b/plugins/Watrack/status/i_st_vars.inc
@@ -18,6 +18,7 @@ var
   XStatusSet    :cardinal;
   ClearXStat    :cardinal;
   hINS          :THANDLE;
+  plStatusHook  :THANDLE;
 
 const
   Changed:cardinal=0;
diff --git a/plugins/Watrack/status/status.pas b/plugins/Watrack/status/status.pas
index ccc9b2a447..1ffbeb6b84 100644
--- a/plugins/Watrack/status/status.pas
+++ b/plugins/Watrack/status/status.pas
@@ -66,7 +66,8 @@ begin
   CreateTemplates;
   hINS:=CreateServiceFunction(MS_WAT_INSERT,@InsertProc);
   reghotkey;
-  HookEvent(ME_WAT_NEWSTATUS,@NewPlStatus);
+  plStatusHook:=HookEvent(ME_WAT_NEWSTATUS,@NewPlStatus);
+
 end;
 
 procedure DeInitProc(aSetDisable:boolean);
@@ -83,6 +84,7 @@ begin
   end;
 //  DestroyServiceFunction(hLTo);
   DestroyServiceFunction(hINS);
+  UnhookEvent(plStatusHook);
   FreeProtoList;
   FreeTemplates;
 
@@ -126,6 +128,7 @@ begin
   mStatus.Init      :=@InitProc;
   mStatus.DeInit    :=@DeInitProc;
   mStatus.AddOption :=@AddOptionsPage;
+  mStatus.Check     :=nil;
   mStatus.ModuleName:='Statuses';
   ModuleLink        :=@mStatus;
 end;