From 2f94f920ade15c18bcc0a19a0d0176047656d7ec Mon Sep 17 00:00:00 2001
From: Ignacio Ortiz de Zuniga <ignacio@fivetech.com>
Date: Fri, 21 Jan 2000 12:59:38 +0000
Subject: [PATCH] 20000121-14:00 GMT+1 Ignacio Ortiz <ignacio@fivetech.com>

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

diff --git a/harbour/source/rtl/tget.prg b/harbour/source/rtl/tget.prg
index b51acb48bc..59730e4cb8 100644
--- a/harbour/source/rtl/tget.prg
+++ b/harbour/source/rtl/tget.prg
@@ -669,6 +669,10 @@ METHOD WordLeft() CLASS TGet
       nPos--
    Enddo
 
+   if nPos < 1
+      nPos := 1
+   endif
+
    if nPos > 0
       ::Pos := nPos
    endif
@@ -708,6 +712,10 @@ METHOD WordRight() CLASS TGet
       nPos++
    Enddo
 
+   if nPos > ::nMaxLen
+      nPos := ::nMaxLen
+   endif
+
    if nPos <= ::nMaxLen
       ::Pos := nPos
    endif