diff --git a/doctools/IMINDEX.LCOM b/doctools/IMINDEX.LCOM
index 0add273d..13fe5987 100644
Binary files a/doctools/IMINDEX.LCOM and b/doctools/IMINDEX.LCOM differ
diff --git a/doctools/IMTOOLS.LCOM b/doctools/IMTOOLS.LCOM
index 9aec597e..ecd1521a 100644
Binary files a/doctools/IMTOOLS.LCOM and b/doctools/IMTOOLS.LCOM differ
diff --git a/doctools/NEWIRM b/doctools/NEWIRM
index b8741669..f1f65d70 100644
--- a/doctools/NEWIRM
+++ b/doctools/NEWIRM
@@ -1,10 +1,10 @@
 (DEFINE-FILE-INFO PACKAGE "INTERLISP" READTABLE "INTERLISP" BASE 10)
 
-(FILECREATED " 5-Feb-2026 21:19:57" {DSK}<home>frank>il>medley>doctools>NEWIRM.;25 12193  
+(FILECREATED "11-Feb-2026 16:27:51" {DSK}<home>frank>il>medley>doctools>NEWIRM.;28 13899  
 
       :EDIT-BY "FGH"
 
-      :CHANGES-TO (FNS IM.CHAP.CHAPTER IM.CHAP.BEFOREHARDCOPYFN IM.INDEX.UPDATE.TOC.NUMBERING 
+      :CHANGES-TO (FNS SCRATCH IM.CHAP.CHAPTER IM.CHAP.BEFOREHARDCOPYFN IM.INDEX.UPDATE.TOC.NUMBERING
                        IM.CHAP.WHENINSERTEDFN TEDIT.SET.FOLIO.TEXT IM.INDEX.TOC.TEXT IRM-IMPTR 
                        IRMANALYZE IRMHC IRMTOC)
                   (VARS NEWIRMCOMS IRMFILES)
@@ -24,7 +24,8 @@
         (FNS IM.CHAP.CHAPTER IRMTOC IRM-IMPTR IRMANALYZE IRMHC)
         (FNS IM.INDEX.UPDATE.TOC.NUMBERING IM.INDEX.TOC.TEXT IM.CHAP.BEFOREHARDCOPYFN 
              IM.CHAP.WHENINSERTEDFN TEDIT.SET.FOLIO.TEXT)
-        (VARS IRMFILES)))
+        (VARS IRMFILES)
+        (FNS SCRATCH)))
 
 (FILESLOAD PSEUDOHOSTS)
 
@@ -210,9 +211,41 @@
                        "{IRM}20-CLISP" "{IRM}21-PERFORMANCE" "{IRM}22-PROCESSES" "{IRM}23-STREAMS" 
                        "{IRM}24-IO" "{IRM}25-USERIO-PACKAGES" "{IRM}26-GRAPHICS" "{IRM}27-WINDOWS" 
                        "{IRM}28-HARDCOPY" "{IRM}29-TERMINAL"))
+(DEFINEQ
+
+(SCRATCH
+  [LAMBDA NIL                                                (* ; "Edited 11-Feb-2026 16:27 by FGH")
+                                                             (* ; "Edited  1-Feb-2026 22:33 by FGH")
+    (IM.INDEX.CREATEOBJ (create IM.INDEX.DATA
+                               TYPE _ (LIST 'TOC)
+                               NAME _ "TBD"
+                               LEVEL _ 1))
+    (IM.INDEX.CREATEOBJ (create IM.INDEX.DATA
+                               TYPE _ (LIST 'TOC)
+                               NAME _ "TBD"
+                               LEVEL _ 2))
+    (IM.INDEX.CREATEOBJ (create IM.INDEX.DATA
+                               TYPE _ (LIST 'TOC)
+                               NAME _ "TBD"
+                               LEVEL _ 3))
+    (TEDIT.MAP.OBJECTS (TEXTSTREAM (WHICHW))
+           [FUNCTION (LAMBDA (CH# OBJ)
+                       (if [AND (EQ 'IM.INDEX.OBJECT (fetch (IMAGEFNS IMAGECLASSNAME)
+                                                        of (fetch (IMAGEOBJ IMAGEOBJFNS) of OBJ)))
+                                (EQ 'TOC (CAR (fetch (IM.INDEX.DATA TYPE) of (fetch (IMAGEOBJ 
+                                                                                          OBJECTDATUM
+                                                                                           )
+                                                                                of OBJ]
+                           then OBJ
+                         else NIL]
+           NIL
+           'OBJECT)
+    (IM.INDEX.UPDATE.TOC.NUMBERING (TEXTSTREAM (WHICHW))
+           7])
+)
 (DECLARE%: DONTCOPY
-  (FILEMAP (NIL (1347 3713 (IM.CHAP.CHAPTER 1357 . 2364) (IRMTOC 2366 . 2576) (IRM-IMPTR 2578 . 2891) (
-IRMANALYZE 2893 . 3262) (IRMHC 3264 . 3711)) (3714 11434 (IM.INDEX.UPDATE.TOC.NUMBERING 3724 . 7129) (
-IM.INDEX.TOC.TEXT 7131 . 7928) (IM.CHAP.BEFOREHARDCOPYFN 7930 . 9039) (IM.CHAP.WHENINSERTEDFN 9041 . 
-9290) (TEDIT.SET.FOLIO.TEXT 9292 . 11432)))))
+  (FILEMAP (NIL (1376 3742 (IM.CHAP.CHAPTER 1386 . 2393) (IRMTOC 2395 . 2605) (IRM-IMPTR 2607 . 2920) (
+IRMANALYZE 2922 . 3291) (IRMHC 3293 . 3740)) (3743 11463 (IM.INDEX.UPDATE.TOC.NUMBERING 3753 . 7158) (
+IM.INDEX.TOC.TEXT 7160 . 7957) (IM.CHAP.BEFOREHARDCOPYFN 7959 . 9068) (IM.CHAP.WHENINSERTEDFN 9070 . 
+9319) (TEDIT.SET.FOLIO.TEXT 9321 . 11461)) (12200 13876 (SCRATCH 12210 . 13874)))))
 STOP
