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