From 88e1284142afb4918c64c546ab05f2f2ee4d0354 Mon Sep 17 00:00:00 2001
From: Walter Negro <anegro@overnet.com.ar>
Date: Fri, 26 Apr 2002 17:05:56 +0000
Subject: [PATCH]   * source/rtl/getlist.prg     ! Fix bug when release last
 getlist       Reported by Alexander Kresin

---
 harbour/source/rtl/getlist.prg | 5 ++++-
 1 file changed, 4 insertions(+), 1 deletion(-)

diff --git a/harbour/source/rtl/getlist.prg b/harbour/source/rtl/getlist.prg
index 2cd881c876..1ede36cd29 100644
--- a/harbour/source/rtl/getlist.prg
+++ b/harbour/source/rtl/getlist.prg
@@ -61,7 +61,10 @@ PROCEDURE __GetListSetActive( oGetList )
    ENDIF
 
    s_oGetListActive := oGetList
-   s_oGetListActive:lHasFocus := .T.
+
+   IF s_oGetListActive != NIL
+      s_oGetListActive:lHasFocus := .T.
+   ENDIF
 
    RETURN