diff --git a/harbour/source/rtl/teditor.prg b/harbour/source/rtl/teditor.prg
index 9dd7a29e11..0e0e5f0bd1 100644
--- a/harbour/source/rtl/teditor.prg
+++ b/harbour/source/rtl/teditor.prg
@@ -808,8 +808,10 @@ return lMoveKey
 // Changes lInsert value and insertion / overstrike mode of editor
 METHOD InsertState(lInsState) CLASS HBEditor
 
-   ::lInsert := lInsState
-   SET(_SET_INSERT, lInsState)
+   IF ISLOGICAL( lInsState )
+      ::lInsert := lInsState
+      SET(_SET_INSERT, lInsState)
+   ENDIF
 
 return Self