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