From ebf9c07f4146e304bc45ab7c4f921c0094ae358f Mon Sep 17 00:00:00 2001
From: marcus <marcus@idefix.freepascal.org>
Date: Wed, 6 May 2015 16:44:11 +0000
Subject: [PATCH] AROS: RKM demands a Forbid before reply WBStartupMsg

git-svn-id: trunk@30813 -
---
 rtl/aros/system.pp | 11 ++++++++---
 1 file changed, 8 insertions(+), 3 deletions(-)

diff --git a/rtl/aros/system.pp b/rtl/aros/system.pp
index e66d14817e..289f34a70a 100644
--- a/rtl/aros/system.pp
+++ b/rtl/aros/system.pp
@@ -121,9 +121,6 @@ begin
   Killed := True;
   { Closing opened files }
   CloseList(ASYS_fileList);
-  //
-  if AOS_wbMsg <> nil then
-    ReplyMsg(AOS_wbMsg);
   { Changing back to original directory if changed }
   if ASYS_OrigDir <> 0 then begin
     oldDirLock:=CurrentDir(ASYS_origDir);
@@ -142,6 +139,14 @@ begin
     CloseLibrary(AOS_DOSBase);
   AOS_DOSBase := nil;
   //
+  if AOS_wbMsg <> nil then
+  begin
+    // forbid -> Amiga RKM Libraries Manual 
+    Forbid();
+    // Reply WBStartupMessage
+    ReplyMsg(AOS_wbMsg);
+  end;
+  //
   HaltProc(ExitCode);
 end;