diff --git a/library/tedit/TEDIT-FNKEYS b/library/tedit/TEDIT-FNKEYS
index 0f3852ea..03fdd216 100644
--- a/library/tedit/TEDIT-FNKEYS
+++ b/library/tedit/TEDIT-FNKEYS
@@ -1,12 +1,12 @@
 (DEFINE-FILE-INFO PACKAGE "INTERLISP" READTABLE "INTERLISP" BASE 10)
 
-(FILECREATED "18-Jan-2025 23:38:11" {WMEDLEY}<library>tedit>TEDIT-FNKEYS.;108 39841  
+(FILECREATED "24-Jan-2025 15:31:33" {WMEDLEY}<library>TEDIT>TEDIT-FNKEYS.;109 40128  
 
       :EDIT-BY rmk
 
-      :CHANGES-TO (FNS \TEDIT.CALL.ED \TEDIT.MANPAGE)
+      :CHANGES-TO (FNS \TEDIT.ONECHAR.BACKWARD \TEDIT.ONECHAR.FORWARD)
 
-      :PREVIOUS-DATE "29-Dec-2024 08:47:57" {WMEDLEY}<library>TEDIT>TEDIT-FNKEYS.;102)
+      :PREVIOUS-DATE "18-Jan-2025 23:38:11" {WMEDLEY}<library>TEDIT>TEDIT-FNKEYS.;108)
 
 
 (PRETTYCOMPRINT TEDIT-FNKEYSCOMS)
@@ -474,7 +474,8 @@
                        T T])
 
 (\TEDIT.ONECHAR.BACKWARD
-  [LAMBDA (TSTREAM TEXTOBJ SEL)                              (* ; "Edited 21-Nov-2024 20:31 by rmk")
+  [LAMBDA (TSTREAM TEXTOBJ SEL)                              (* ; "Edited 24-Jan-2025 15:25 by rmk")
+                                                             (* ; "Edited 21-Nov-2024 20:31 by rmk")
                                                              (* ; "Edited  1-Sep-2024 10:39 by rmk")
     (TEXTOBJ! TEXTOBJ)
     (SELECTION! SEL)
@@ -482,12 +483,14 @@
          (CL:UNLESS (ILEQ PT 1)
              (\TEDIT.SHOWSEL SEL NIL TEXTOBJ)
              (\TEDIT.UPDATE.SEL SEL (SUB1 PT)
-                    0)
+                    0
+                    'LEFT)
              (\TEDIT.FIXSEL SEL TEXTOBJ)
              (\TEDIT.SHOWSEL SEL T TEXTOBJ))])
 
 (\TEDIT.ONECHAR.FORWARD
-  [LAMBDA (TSTREAM TEXTOBJ SEL)                              (* ; "Edited 21-Nov-2024 20:31 by rmk")
+  [LAMBDA (TSTREAM TEXTOBJ SEL)                              (* ; "Edited 24-Jan-2025 15:27 by rmk")
+                                                             (* ; "Edited 21-Nov-2024 20:31 by rmk")
                                                              (* ; "Edited  1-Sep-2024 10:39 by rmk")
 
     (* ;; "Moves caret to a point one character forward.")
@@ -497,7 +500,8 @@
          (CL:UNLESS (IGEQ PT (TEXTLEN TEXTOBJ))
              (\TEDIT.SHOWSEL SEL NIL TEXTOBJ)
              (\TEDIT.UPDATE.SEL SEL (ADD1 PT)
-                    0)
+                    0
+                    'LEFT)
              (\TEDIT.FIXSEL SEL TEXTOBJ)
              (\TEDIT.SHOWSEL SEL T TEXTOBJ))])
 )
@@ -726,23 +730,23 @@
                                   (TEDIT.SETSYNTAX (CAR ENTRY)
                                          (CADR ENTRY]
 (DECLARE%: DONTCOPY
-  (FILEMAP (NIL (6234 29697 (\TEDIT.BOLD.SEL.OFF 6244 . 6582) (\TEDIT.BOLD.SEL.ON 6584 . 6912) (
-\TEDIT.CENTER.SEL 6914 . 8430) (\TEDIT.CENTER.SEL.REV 8432 . 8728) (\TEDIT.DEFAULTS.CARET 8730 . 9223)
- (\TEDIT.DEFAULTSSEL 9225 . 9672) (\TEDIT.SETDEFAULT.FROM.SEL 9674 . 10351) (\TEDIT.KEY.FIND 10353 . 
-15420) (\TEDIT.KEY.FIND.SEARCHSTRING 15422 . 16562) (\TEDIT.GET.TARGET.STRING 16564 . 18278) (
-\TEDIT.KEY.FIND.BACKWARD 18280 . 18585) (\TEDIT.FINDAGAIN.BACKWARD 18587 . 18998) (\TEDIT.FINDAGAIN 
-19000 . 19291) (\TEDIT.ITALIC.SEL.OFF 19293 . 19545) (\TEDIT.ITALIC.SEL.ON 19547 . 19740) (
-\TEDIT.LARGERSEL 19742 . 20030) (\TEDIT.LCASE.SEL 20032 . 21427) (\TEDIT.SHOWCARETLOOKS 21429 . 23029)
- (\TEDIT.SMALLERSEL 23031 . 23322) (\TEDIT.SUBSCRIPTSEL 23324 . 23527) (\TEDIT.SUPERSCRIPTSEL 23529 . 
-23733) (\TEDIT.UCASE.SEL 23735 . 25074) (\TEDIT.UNDERLINE.SEL.OFF 25076 . 25274) (
-\TEDIT.UNDERLINE.SEL.ON 25276 . 25472) (\TEDIT.STRIKEOUT.SEL.ON 25474 . 25670) (
-\TEDIT.STRIKEOUT.SEL.OFF 25672 . 25870) (\TEDIT.SELECT.ALL 25872 . 26188) (\TEDIT.KEY.SUBSTITUTE 26190
- . 26411) (\TEDIT.MANPAGE 26413 . 27660) (\TEDIT.CALL.ED 27662 . 28492) (\TEDIT.ONECHAR.BACKWARD 28494
- . 29064) (\TEDIT.ONECHAR.FORWARD 29066 . 29695)) (29769 36280 (\TEDIT.BOLD.CARET.OFF 29779 . 30314) (
-\TEDIT.BOLD.CARET.ON 30316 . 30848) (\TEDIT.ITALIC.CARET.OFF 30850 . 31387) (\TEDIT.ITALIC.CARET.ON 
-31389 . 31932) (\TEDIT.LARGER.CARET 31934 . 32469) (\TEDIT.SMALLER.CARET 32471 . 33008) (
-\TEDIT.SUBSCRIPT.CARET 33010 . 33551) (\TEDIT.SUPERSCRIPT.CARET 33553 . 34095) (
-\TEDIT.UNDERLINE.CARET.OFF 34097 . 34637) (\TEDIT.UNDERLINE.CARET.ON 34639 . 35177) (
-\TEDIT.STRIKEOUT.CARET.OFF 35179 . 35719) (\TEDIT.STRIKEOUT.CARET.ON 35721 . 36278)) (36349 37051 (
-\TK.DESCRIBEFONT 36359 . 37049)))))
+  (FILEMAP (NIL (6251 29984 (\TEDIT.BOLD.SEL.OFF 6261 . 6599) (\TEDIT.BOLD.SEL.ON 6601 . 6929) (
+\TEDIT.CENTER.SEL 6931 . 8447) (\TEDIT.CENTER.SEL.REV 8449 . 8745) (\TEDIT.DEFAULTS.CARET 8747 . 9240)
+ (\TEDIT.DEFAULTSSEL 9242 . 9689) (\TEDIT.SETDEFAULT.FROM.SEL 9691 . 10368) (\TEDIT.KEY.FIND 10370 . 
+15437) (\TEDIT.KEY.FIND.SEARCHSTRING 15439 . 16579) (\TEDIT.GET.TARGET.STRING 16581 . 18295) (
+\TEDIT.KEY.FIND.BACKWARD 18297 . 18602) (\TEDIT.FINDAGAIN.BACKWARD 18604 . 19015) (\TEDIT.FINDAGAIN 
+19017 . 19308) (\TEDIT.ITALIC.SEL.OFF 19310 . 19562) (\TEDIT.ITALIC.SEL.ON 19564 . 19757) (
+\TEDIT.LARGERSEL 19759 . 20047) (\TEDIT.LCASE.SEL 20049 . 21444) (\TEDIT.SHOWCARETLOOKS 21446 . 23046)
+ (\TEDIT.SMALLERSEL 23048 . 23339) (\TEDIT.SUBSCRIPTSEL 23341 . 23544) (\TEDIT.SUPERSCRIPTSEL 23546 . 
+23750) (\TEDIT.UCASE.SEL 23752 . 25091) (\TEDIT.UNDERLINE.SEL.OFF 25093 . 25291) (
+\TEDIT.UNDERLINE.SEL.ON 25293 . 25489) (\TEDIT.STRIKEOUT.SEL.ON 25491 . 25687) (
+\TEDIT.STRIKEOUT.SEL.OFF 25689 . 25887) (\TEDIT.SELECT.ALL 25889 . 26205) (\TEDIT.KEY.SUBSTITUTE 26207
+ . 26428) (\TEDIT.MANPAGE 26430 . 27677) (\TEDIT.CALL.ED 27679 . 28509) (\TEDIT.ONECHAR.BACKWARD 28511
+ . 29216) (\TEDIT.ONECHAR.FORWARD 29218 . 29982)) (30056 36567 (\TEDIT.BOLD.CARET.OFF 30066 . 30601) (
+\TEDIT.BOLD.CARET.ON 30603 . 31135) (\TEDIT.ITALIC.CARET.OFF 31137 . 31674) (\TEDIT.ITALIC.CARET.ON 
+31676 . 32219) (\TEDIT.LARGER.CARET 32221 . 32756) (\TEDIT.SMALLER.CARET 32758 . 33295) (
+\TEDIT.SUBSCRIPT.CARET 33297 . 33838) (\TEDIT.SUPERSCRIPT.CARET 33840 . 34382) (
+\TEDIT.UNDERLINE.CARET.OFF 34384 . 34924) (\TEDIT.UNDERLINE.CARET.ON 34926 . 35464) (
+\TEDIT.STRIKEOUT.CARET.OFF 35466 . 36006) (\TEDIT.STRIKEOUT.CARET.ON 36008 . 36565)) (36636 37338 (
+\TK.DESCRIBEFONT 36646 . 37336)))))
 STOP
diff --git a/library/tedit/TEDIT-FNKEYS.LCOM b/library/tedit/TEDIT-FNKEYS.LCOM
index d65575b6..fa1d41fc 100644
Binary files a/library/tedit/TEDIT-FNKEYS.LCOM and b/library/tedit/TEDIT-FNKEYS.LCOM differ
