From 175821531efbd11be3cd4bae9dc899958dbe5aee Mon Sep 17 00:00:00 2001
From: Viktor Szakats <harbour@syenar.net>
Date: Thu, 13 Sep 2007 02:55:22 +0000
Subject: [PATCH] minor fix to prev

---
 harbour/source/rtl/tgetlist.prg | 8 ++++++++
 1 file changed, 8 insertions(+)

diff --git a/harbour/source/rtl/tgetlist.prg b/harbour/source/rtl/tgetlist.prg
index dd5fd9ecc9..12990e2045 100644
--- a/harbour/source/rtl/tgetlist.prg
+++ b/harbour/source/rtl/tgetlist.prg
@@ -576,9 +576,13 @@ METHOD GetPostValidate( oGet, aMsg ) CLASS HBGetList
       ::lUpdated := .T.
    ENDIF
 
+#ifdef HB_COMPAT_C53
    nOldCursor := SetCursor()
+#endif
    oGet:Reset()
+#ifdef HB_COMPAT_C53
    SetCursor( nOldCursor )
+#endif
 
    IF oGet:PostBlock != NIL
 
@@ -593,7 +597,11 @@ METHOD GetPostValidate( oGet, aMsg ) CLASS HBGetList
       ::ShowScoreBoard()
       oGet:UpdateBuffer()
       
+#ifdef HB_COMPAT_C53
       ::lUpdated := iif( oGet:changed, .T., lUpdated )
+#else
+      ::lUpdated := lUpdated
+#endif
 
       __GetListLast( Self )