diff --git a/harbour/source/rtl/getlist.prg b/harbour/source/rtl/getlist.prg
index 1ede36cd29..3543b84b41 100644
--- a/harbour/source/rtl/getlist.prg
+++ b/harbour/source/rtl/getlist.prg
@@ -53,6 +53,7 @@
 /* NOTE: Harbour internal function to set and get the active GetList */
 
 STATIC s_oGetListActive
+STATIC s_oGetListLast
 
 PROCEDURE __GetListSetActive( oGetList )
 
@@ -73,3 +74,10 @@ PROCEDURE __GetListSetActive( oGetList )
 FUNCTION __GetListActive()
    RETURN s_oGetListActive
 
+FUNCTION __GetListLast( oGetListLast )
+
+   if oGetListLast != NIL
+      s_oGetListLast := oGetListLast
+   endif
+   RETURN s_oGetListLast
+