Index: AAPClient/UI/InfoLogScherm.pas
===================================================================
diff -u -r69 -r77
--- AAPClient/UI/InfoLogScherm.pas	(.../InfoLogScherm.pas)	(revision 69)
+++ AAPClient/UI/InfoLogScherm.pas	(.../InfoLogScherm.pas)	(revision 77)
@@ -40,7 +40,7 @@
 procedure TfmInfoLogScherm.actHomeExecute(Sender: TObject);
 begin
   inherited;
-  Self.ModalResult := mrOk;
+  Self.ModalResult := mrDnaCode;
 end;
 
 procedure TfmInfoLogScherm.actOngedaanMakenExecute(Sender: TObject);