Index: AAPClient/UI/HernoemPalletScherm.pas
===================================================================
diff -u -r237 -r240
--- AAPClient/UI/HernoemPalletScherm.pas	(.../HernoemPalletScherm.pas)	(revision 237)
+++ AAPClient/UI/HernoemPalletScherm.pas	(.../HernoemPalletScherm.pas)	(revision 240)
@@ -55,14 +55,14 @@
 implementation
 
 uses
-  UiContext, Agent, CommonFunctions;
+  UiContext, Agent, CommonFunctions, ProScanMain;
 
 {$R *.dfm}
 
 procedure TfmHernoemPalletScherm.actHomeExecute(Sender: TObject);
 begin
   inherited;
-  Self.ModalResult := mrHome;
+  (Self.Parent.Parent.Parent As TfmProScanHoofdscherm).NavigeerNaar(mrHome);
 end;
 
 procedure TfmHernoemPalletScherm.actVolgendeExecute(Sender: TObject);
@@ -171,7 +171,7 @@
     Response.Free;
   end;
   if Self.ModalResult = mrHome then
-    CloseModal;
+    (Self.Parent.Parent.Parent As TfmProScanHoofdscherm).NavigeerNaar(mrHome);
 end;
 
 procedure TfmHernoemPalletScherm.FormShow(Sender: TObject);