From 6146aa6eb6d9ce9906aa14fc80cfb9446d74479d Mon Sep 17 00:00:00 2001
From: Karoly Balogh <karoly@freepascal.org>
Date: Sun, 26 Dec 2021 20:37:29 +0100
Subject: [PATCH] rtl-console/amicommon: set the window's UserPort to nil
 before closing, as recommended

---
 packages/rtl-console/src/amicommon/video.pp | 1 +
 1 file changed, 1 insertion(+)

diff --git a/packages/rtl-console/src/amicommon/video.pp b/packages/rtl-console/src/amicommon/video.pp
index b933d8d67e..57196ebbe1 100644
--- a/packages/rtl-console/src/amicommon/video.pp
+++ b/packages/rtl-console/src/amicommon/video.pp
@@ -445,6 +445,7 @@ begin
       if (msg <> nil) then ReplyMsg(msg);
     until msg = nil;
     ModifyIDCMP(videoWindow,0);
+    VideoWindow^.UserPort:=nil;
     Permit();
     CloseWindow(videoWindow);
     VideoWindow := nil;