diff --git a/images/apple/PLEIADES-2.20.po b/images/apple/PLEIADES-2.20.po
index f7c6f75..bac8def 100644
Binary files a/images/apple/PLEIADES-2.20.po and b/images/apple/PLEIADES-2.20.po differ
diff --git a/images/apple/PLFORTH.po b/images/apple/PLFORTH.po
index e534d2c..7f0e6cf 100644
Binary files a/images/apple/PLFORTH.po and b/images/apple/PLFORTH.po differ
diff --git a/src/scripts/hgrlib.4th b/src/scripts/hgrlib.4th
index 499f0c3..cf6866a 100644
--- a/src/scripts/hgrlib.4th
+++ b/src/scripts/hgrlib.4th
@@ -29,4 +29,4 @@ LOOKUP LINESPANS    PLASMA HGRLINE
 : SETORLINE  [ LOOKUP HGRORHLIN ]  LITERAL [ LOOKUP HGRORVLIN ]  LITERAL SETLINESPANS ;
 SETLINE
 ' TEXT 0= ?ENDSRC
-: TEXT -1 HGRMODE DROP TEXT ;
+: TXTMODE -1 HGRMODE DROP TEXT ;