diff --git a/Projects/SAMufasaGUI/testunit.pas b/Projects/SAMufasaGUI/testunit.pas
index aa8da58..f03194d 100644
--- a/Projects/SAMufasaGUI/testunit.pas
+++ b/Projects/SAMufasaGUI/testunit.pas
@@ -2007,9 +2007,18 @@ begin
 end;
 
 procedure TForm1.ButtonTrayClick(Sender: TObject);
-
+var
+   Ext: TSimbaPSEventExtension;
+{ FIXME: Turning it into a test button again... }
 begin
-  Form1.Hide;
+  {Form1.Hide;  }
+  try
+    Ext := TSimbaPSEventExtension.Create(MainDir + DS + 'Extensions' + DS + 'test.pas');
+    Ext.Free;
+  except
+    Writeln('Something went wrong with the Extensions.');
+  end;
+
 end;
 
 procedure TForm1.PageControl1Changing(Sender: TObject; var AllowChange: Boolean