From ebc346d7f145841a35f3d4166b3fcf69c70f4a0e Mon Sep 17 00:00:00 2001
From: Frank Halasz <frank@halasz.org>
Date: Wed, 11 Feb 2026 16:29:40 -0800
Subject: [PATCH] More WIO for merging with master

---
 doctools/IMINDEX.LCOM | Bin 16858 -> 18066 bytes
 doctools/IMTOOLS.LCOM | Bin 26866 -> 26734 bytes
 doctools/NEWIRM       |  47 +++++++++++++++++++++++++++++++++++-------
 3 files changed, 40 insertions(+), 7 deletions(-)

diff --git a/doctools/IMINDEX.LCOM b/doctools/IMINDEX.LCOM
index 0add273d6e17eddcb776cd03852f6f6939663aa2..13fe5987b7e2ebe4e929ee170eef10acb58249d9 100644
GIT binary patch
delta 4477
zcmb7HTWlOx8Qxjn;(<7J>ew5{P5w-rWY*yIT=(YG^>}yI-eh)mvoq_B(}dRXZek~E
zuSpz8p=b#_RH~>{IKTq}iS~tZs~Vg{JOB|wh(aGg6++Mmi9Giu2&oT95dL#!Z+3#9
ze(=t@{Fn2e|NFoHy#HnHYp-&z6>G9Qkt$!9P$VS`ayYIiaa9#S6qc)N8>^La399QL
zz~__BsV|&Zsjii$FJ4_*zcRgAnO-ZGD&-faOV#DgYPE80I-N<|N%Kr-Di#D@kfReP
zm)7fg)wrt1bxnXxs<v{x1gogk$mN_Gv~LWBLIRYQHqq>33c_(o6@t8&N?T?kZyK(d
zM91`&_lg`>q`0hnByXPyO+`VIVlfHgW-{$g%r2tyskwOp;)!{~o->^ZHw$9Qb|9Sz
zc_&P!ot$MXrfl+u*a7kbohN&`hSNN*qew0^XSyjn2;zc~r$S67k<B<bl{XXFe6n4Y
z;Tl1R=kn%4I$Llil6WpM$^|C*j}&rw>v!CkpS(G=mk&}um`(Cl2*`NnuQ{GP?EGdY
zF9vz?O4rwMc&IzThFeqJot!+5p~REZz)oOblddsqnd6WGS%XwIpD|oFZO=I_x)ua~
z{$riQ?YY1A)5XAr?qB)v?{>$RZgCfiBP6+N!O!)QZ|}Mt!6VFEqKiEJ=jS*!c(?`a
zvwpun(b}{!61Yb;dJotB{ZF5$M`MsGSe9*MOwgkWxMn_=PlF!O0e@``^l%h|Ys{J1
z*^{|^HV3+{;;u8UH&A!3%Hi$Xwb;&ysK(@LOo0}Tw6tkVHFH4I6y|^onxa8AXWEX7
zLCatgh3g9{CKL5h1~n3CeCaXB8HrOg$m~q2u0b-5`QT>ri{6Z?vMrO%JxbI&5uOl~
zNZaWYJ<3eyK+&S)$NbM~VHI!}YQqF7WI)&O_!NzJaT7EtF?^t-fo+@c0B$w`x-4&-
z*J3-ykytDD6IRwSQ=mmOFjA;>-pD5t*;)?K09sgTZOplOdJxdi6^v*m=N8eUY!Nh-
z2Bm#Mj)86B0_Iz`;N}W022<X?M~%{ZZxd1@^d1@$HPox3q1kM55kKVmhY|rh>jf8e
zdy7&O7R<bp&f1_#D*B6#f)a}YrVd^vomZk!cK0mqEY0e`ub+u&R5U7FU+Af?kcS^H
z3@IR#s_SI|R7^2})igC6*?Mlb(zBbl(-tp+4g%IP@~y$r`4c|Q*J<=pnEd1uGwe6V
zKvU`dbB+z);VYeu&)&-`Bly>Uxl}57Up`SqsAO%|D~jlR+lZXmcVd@k6V1)^kC40j
zE)CY5P-HBi0-%rR%a%N}$o1twgH^z^0&Bqn^2%^AL~#_tGzrZXTsLc*3#N_bEtE0s
z0+xsve0Ftn<&pn8k9@RXNTjc8c&@RCdDV<io3tk!1n&B-PT#Kfg3u@vZ`|Vi#eUKg
zI5pYNLQwL`#~ZhN<lYN3REMrq{FRPMXQhipVPwG1&6m=HokR=-&oPk!&VN$vr?tuV
zX1fh6I>o(L29zG_)IYWkTz<aqo_(h;+qW|Esh?X{{&?=~53+s7e)0B)nY{t7-?Ms~
zPgOeDmGl<}sZ+HfX5n`4Ov;<aJBYNUJ}sx9hGk$uQY9U{yUAspw966<>q0X!g&ZyV
zEW~ypGizeym;+^Jxsqe5r%sl_HSbH8cIuU>6RnbnY^kaeB+Zmjuw3fQylEv7s48B4
z!oqq+@q-x?ftNZv=(@X@GmpFkN;nLK4NAo5$o66&hc&1@u2I(UkWG!UqVCWr%L+K<
zO{@Hwas{x4Kdu2ywiKw!PI*KmEmf>g?XH(OJRc&L{3dX-#v|B36w$;{@QjG33t87}
z8V!Pgi?F#;h6;1yV)ZJHR<AL=)eD!)%bOtqDcU>tQ8r!I;Z322dQ7Mi>WzJU?LztL
z>iQ)ZqS}@!6~J!j`dWE?^O_J0BH~W&f5`D$QzK)X$G6J|1P=N4wZIYb{ZR>*-XDFJ
zPRxu6<eh^*8sJ4mhqz5i*TU0L%#Mw2y?*FCH#m;Bl`zfZM8a@Phtjj6ksls9*o7ZD
zkiSL)1K__g+~Mo+ipjuX{|jW}urj&c0?$wH&9lt?ZTG-HH^UJd-m6kbt(4dddH3*F
zxwpu9;nn?ztUCwU5?f%Y?xBzTOPJ+DBdct&D3SCLiBrhuj+}i)*$IO%)>zhGV5M}-
zyc_Zu2svG<&pW2;m=@A^m<){V+pp?SU}r=|$Afv_pi4S=c5Li4rn9FFn=C4&VW!nv
z0}WHGPP@_Y6K$%<lAd(krmDus>-tlss#5Al)Y9H9ZBqtPB9sH_Q`8bNEf~opgEX!E
zJ0LBG$%FCHafXAeoiJRGk>?m&7J=fy0~_{JMeG0}rjq>8xv~z$6oQZ{#p@0uelzK0
z5?ND64z|pci)~H}&^$6bEgY1p>*)a+b_Y&69=9z#&FP8u^gt%oT2kcE(Sv1qCksnE
zSXf0yXBJf*q1v>lQsA~mlGHY$JlR@P^axo$Hhc^P9!Ix=Y0!eV9HqDUbP{ANn=GO-
zMs#}(q7}n+7m-tFU)3Ob<aspOJ|-U=J28yGhI6<(#G>Fhv@&Qhg@lenhbAfH^zlh9
zMs6Mtbn$qz5{@Sda!dmuoq_avseA(vwATgfcw;!nCY*8wOTsEXf0nKxOUjse0{+Mm
z9z<CULX7TgNV_j?l;c2Y6vRgzh->)d?<uYyP5}AhQ=McmRHMzg9|8Tn&~$GaIiH)!
z-I*cZ-9J`iEW`dGsk7hReH4((Uh~}V6B)U9b-m8=n8~ct<GaM0!4vC@RM-=w4l+Cq
z_8W*2jnWNUDbAa=heVSxK@`ZP$r}e~t!Zp&K5rnNjPfG+O7~4JLiY4LJro4rgPvx)
z!npNM#XfRhdavda6-C*`K1dzNJ$a*OrEL>rOz74Co43{go9os9k(j^^gLV5hVli*d
zvBcK_`)p*!`dCA{@nEK52Ay&OY!R?{v=bm&C4W;!&SF_bKCO$=R7~6010qDR<!^k3
zQM5j*;mg4L#7l4Mm}ypF&nz?=YTClxRhM_?+FH10$pdMG%xHV2{#V<EFM_tV4XaCQ
zL|)eBj_@L4c87Ju#5U`H*UmQb>UsTKtJAAa4w1j;&ow8uPJ|cy2mebKhbe-*$CLh^
zr^$Qq5V;>cfT{ao^dR}=)aaHRdztG%$*ph1$G94Z&LXzdiy3f?1rX_bD~Q5IB4Ikt
z_D3?lY>|=qMzF+$kq6N-92dlk<;~?45SuL!Hb4eAg;~c;1fhBn*dqoB6d%m^&`zM9
zx?Jr^g8bu>^gXd)SOt^nu&`&f=#M?;&i~)WLA+Yts4Oj)F*Hp_XP)RO>w!@*_5iDJ
c@oIGqWZ0}WeSqa^h1L>~g2Ao3Q)Au#0denei2wiq

delta 3491
zcmaJ@O>7&-73NYDEz+SP*|Po|DNifeCZ&+xo!#YfDMb}UE~Smh-3@moTB(D?Hkrz)
zejLRKQdA8Qr?(<NngMc2kV8+s88&U8KnoaXPiYSYdTEgYITQifivg$S0_mGwQY2-=
zJdpF=4CnpK_rCW&`-J=EWA4*xgUHG9)q^AvhytRJmBg&1@(|~*@9*Bcu~V<X{vPn~
z^J-Zyl=Q7%EY<d}-`d~bd3V_;8)iYjoLUrx1VnivbnYP}OXRGA_gp)uA6-=c;O4=*
z=dxgwQ~p2og5fsc2Hs!XD3zf5hEyuWL+$D<wEyJQN>(6zA{s9mB|Tr!bFN+h{^@Z%
z+i#H6hNK9PWu7Egx8Pv+r;yFB=gc+TNxBxqi>4FpbvOZ8yP|Iz)`pWTplRSmwG+8W
zvVxjblxJs5OGMjAXl@55gCnuH0@ms)dfvq=H_C}vJQ1UxhaPb;`pf>$L!P)YI!@E!
z!>L$Y7T^#QbO=xR)2rFj^k3oc&lIgnIp?~Dx#qa&WdefBC;Mn<;Gbt+uZ~{}|0#f<
z`+c|Xa^{<CNxvW13<my7jmUkN<i=Ni!jw_=6~s@zBW_QQQ#m@*_+dB@SJE1=mosx^
z9h5WySFhL=0~AF8{554z<P2snx29uocEz$mkz_n|+4Tic>)n;L<BE*hIWDWhk<b8H
zNw@9EvTsiWnW$jdy6LzGi!#W9<~bsQq)F{nMrg0lV>_3>#9-uwASo&oj0(PjRoU`2
zQo8pD$uO&z-DwO6i0TVoFeEK{rfndKNN=C~!;fXD`%OV17#yn@e3K+%%*JeiBFa67
zWbK%oAszVTOO~S-K~`0I_qo#zsk39d6&3|1Ma1B&vh7yUlvM>8vC^v`1WX+_M9kEN
zYj3!iCAs&El*t@Zs4T%<*Ggz-Z`CSnfh5b|FC+m>%g-9#?dwDlHuZ{QSSCn98vR8_
zaU}w#5MPPui6(j(^%E*S5tDZ#k<;{U?DT}B!aP<x7Ap%kiH}@xbE_qNp8hemF{%Jx
z+uy76_}Uuq9)(D%&`b`J6S0_SlwxtL7@o({+Bs8uEfe4Zp<IMv{N9BX@7MMazZ3q4
z?TI^~*5d8$N&F1GU8~jnRUnR@6fM&&=uTcYT_71xT-S}Yb(bbbmj--;XzQKPk49S7
ziHKCnL)vqq86Ml>=<awmNPvE|cs7!N!0SOSFi@fP#HHns=feHSO3`y_C=l0#PI6cd
zAR|IqH#ZP);M1UOIfjc#MXT?_?1&17p+0uP-Lm!BLu3^Y>D&t+1#v$+^_Yt_7pCVp
zk6oJ1i#&&H^FBDJ{xkfA317ks^d5h2I2K0>S(7nJ$)~0-VXFDr>=o{O4=Rd4WSB=)
zUe^oBe9qCGc|fH?znGm4;UY~xT%H();Lcbm(C4RqcqTYN&2uDit>%%;<KNs3+<Un0
z1^;z;csN{5dFzM!?4h=6)fByR?$_LJY3}?drzc7e#yx#C<t6DM?*9AyYE+oK;j0Oi
zE(n}VYZqQ?2#kulIu9rw@-UI8bo7dw@);PJEQ5$-dPjF1y@V_#cmC>UnxR!85^Q*3
zBCm<<HONRcM}}DTQ`L3EI=ustMotirl4P-MV9hrmW1Y0PQx>|3%6FsJJ;qW!?n#no
zkWosi<DG<%^pBwt!(@d{h{`ycMb<J*WCFQD!AB87x)(+uDheICcy?ZtHOO0LKIeic
ziQw^26+|p^|NXJqRIN$@G=VN9*51Ngxb9ZU1A^mV%~gv?9?S@$N6|7+HVQaQfTC(p
z(u*!O3>7fZNW6>@SQlua4Y^JP$H->Q628T&$!=`X|0Jdx7-Z*<5<Z-FpCqTd)yO=Z
zLj)PNOG19_l91L8o%$`vZ(qH6t9}6Hd%M@_2ZuPCq@kb}a~ma>g|V)e3Plq{?RiXD
z340!+Mi5nvegV_Gn3nyz6fvVc6^H{Cb_{omMi!P%uyT|$0==>TeUg@@jfIPxMDHw&
z_s6hOWR#O*A~G>=l)>1m)jxpU`rdmyh_Xb7UK&4-wZ@|)iZO_bQUWxjm7}BX&u-SU
zz^Km7%{2F4`nC_t+7$lE%6ggre*cKvKKrz>1EI^1M866F{T~^N<d7!075hPk&PdZ#
z=<lbGrcTjPe?-Oh+3xK=Ztxv_4NgtI24h6%w61K`7yZ3-=ub3@^2AgI=H@VecFA$)
z=D-FOW!7M^z~<)Yizhy&-wY1YM~lNqBwm$xTM6KlXs}J+NEv^xj?fdz-x~P`q3Wnd
z7~a?LOvD-tGv@fZ_{PwK*_PljP1lTrr2fXKk)m~K==jb__Fv>)*1bxG<Mm6{zuJK_
z*KrPL#cjRS8gmHF4Xr4EV8tA*3FGjtd59n@6)L%E$uM;gGg_B`(@tjxf!Prx`t8Y4
zMUeo<92_Pp`kGfZQoBYatguV|9(df)F-WJMn`$7RBUpU4^X5%#!syrW*@U16J%<q2
zPaaaVPIOpyN0H)S({hZke3>{0V2QAC=H=EpjkMKTGJ^G&SkPTIS&iVp!nemI2I%k7
z*JGuw-n~d;$|T)WpU*t2Un9eG_iLO>nb_*rzf;%dV{v5VW2VJk)9un29Gju9WXRK}
z_D?fcI=%nRm(S3M)=@Nfwap;?Zt*M^r9UjL)5qLIIKG*yI8kcl#+x55{fcW|T;{mu
JJ1aBc{{zuASEc{}

diff --git a/doctools/IMTOOLS.LCOM b/doctools/IMTOOLS.LCOM
index 9aec597ec1b24659fa1a09968e47dde2f74875c3..ecd1521a661ec3032cd4c3c9ae27a3a3c9e5cfd5 100644
GIT binary patch
delta 1819
zcmaJ?OKclO7>?7#g2{sh=i$^Too<UC3Ep_Uwi9oH>BhTumfAbU-ncYslQ^+cr*-0%
zMnWNkaH)h8wKQ5zMIc30#Ra7WU$`J4phA>OD-c3}IP|~?IPee$)WSczacmK(vh>Yr
z{>Oa(_y05g{hsBwyOyi*b%fk8B_T)CvZ%=tW;o6pE6jTRK7R;vA;HfJT$sUbX0E(=
zexX#z<MI+_@T!zKzBXDcFBT&6FXfibMHWht#X`PRSc&AzbIav&>0(4lYJ?;*><I6{
zh~b94&*zqQ^6~;76oLT;FR#<QC08CVKw2@C%HVoOmSq{7&n?5TdlG~MAJ2IH#~$-F
z_CP%t5P1HPY}fbF_2W=5zz47(ON!<lI|<}t@o@$V(Q#3Y%Negmusfz^a8f)jvr3ZH
zNYsOcR9em|WFq60KuC~i*eez0ykQP=L4gAmhZv0Z%EmrIH_n4ZNunntWpx4z(lFBd
z8!uXr{%+$8;J=Lu;MGK5vtg^8-M7^U8?DwWfNxvXb|ev2Q6>3B)Bd;hGPPfNd=sz-
zeFS(HoqB?LB}H{YOqgyXEoUuG<PMun28BH+o)*Up9)=s6($X1|&R4CU*^oOhjK_#{
z5(j+7>OuNeTW41_3cN+1&&Qb&ciLXV$jybZpptY_Ow{KGPm@BiePti8yWjCD;PjL4
zbRiHSN|HcRsuQEbwhs198xMHfwq~bZFvN<+W@H#?O(Ck8Z?f}yT6wVN9N<=u2KiL*
zGPGf{VznA%Km8a|l>{wWFWVj9ykY+wFxBg5GB<k<T2SS3uZ5<2)4}&4H{6miX4V+!
zGpz9A_#w=!!f5J0Il967FUK#<u-rfFpg|9h{0aES(Jui%e)<C7pmWfMc4tY^60)h(
z1?Nq$9(MHrhFzoGH6IeK6LiCsJy<2Zo5l3-o7F#b$yOjBv8n}9>4UF#)Tc6ij{4rG
z?C$vo03Z100rUJo3sU71Fz&|aUE_alNA968)(D$QlQ<N3B~aXtpkT}#(Fon6RY#)T
z)}3ZE!RKm%Mxyp6BhjVcjr!egD{mg4h9+zKw?b6AFG4@Gz;b=8g|fRTEdch)F9UAM
zeSq7t44eYEUnMCqF89OnmROfz?s1ysyA#;$!=lH78=4y$8Z5^eE&Cg2ldFx+&2$>P
zDy7(mRG>rSKf0i;eh$0A1#=z`g3_XLCPS|PJOU|A-kF#RqioPY-A=3lK9gMTKxsJ!
z4+2Zsm{om{96wM!3yhhnb>{}z)bT@AbG3cOT-LSt6}40oMkKp}A=2MQFDmd!8uv&S
z2_0HBG@!pho~p%c6DsCy@@bP5)CvVLINB>Wv|F^^Y?eMLcd|-t3hN#X=ZSCV^!{^d
zjry)kEkna$zWYH7xUM6#;SZ*0D-KMb287p0e``7lU*Ap70glelQMx`;u%Z_xh$idj
zi=8@?gIlB@%Td#NxjbO&>?~k;mWF&iOCPtuTmkUf9QCo}rvPX2(}17k>Atf-qc#dT
zz+Vj{^E9?HPh&gJ(5TfjlYrkE-_I89@SQEPjQNL=Nf1%O@DD{_3mi+!GJRq_MkD?M
D%Ng6H

delta 2062
zcmaJ?OKcQ%81J^wfMt*Zwxvb*9KhWzcG#JHbax?ZW_PCT$j;0%Guu)G+I>vv+NHbf
z18A_;i-`#VmAPnqL=RqwiP6Ty#26D%3<nb-Toe+b2Tcg!U`V`R;`g6nnX2d<ezWuc
ze~;hy+`B(`e!uE@eRPTPjYw%RrHQ;D3P7{LA;ByRaRDv>Y$VP_;-LTyKDtmjUM-c)
zB2?yq2I`EU?_b=Pt(&!aB3En9pEApZ*@RFjG>@C}je4RvUpk#Am+I9-xo9Sel|nsH
zU&!am^|^(FBpa%l)|tJmALu2B4e`|)It-x0Xgt8igB&_&5Qk-N5lZM!Hj8C*0fI~z
zMw;a^=nM5qvjHsYa%C8XhGMRP4C$5UXfn*k*#PbTN1zb3m6u{Hu;DlxjI+ZuIAJyI
zupaWwWRto}nuAC<770UPHaCCFtV5%+D-OPKUekek5Lrr<bwBt<6dgu2KFLUO#?T<6
zNs7TpiXa|j)Z}ww$^cCqSz-*8$?&71AF4I;WU11u+hL$l8bU+5Ssfw_F)^WdIQTI0
z|4WheQ@kLcTSgX@EX0K<<&z))6X;x>@I%{y_O>?9bQ?a~t*-V%9?F_&pGN$yT|(^c
z01vgyb$rl{AJ<o(M=W$I>nTBX*xLq|zv?_k?&Y;_Al_R0IpUj-9e$ih$-I)~(~ek2
z*9)HYlrQF_7K`Agtm@R}RfLpft-G|3@`a+1RE0?h1?)G<02c*cYK+hDsr`U&!|$iu
zO!C+&tZm)8K)nQ%kBvcGQ8k%Q+xA^aheBZeLI<+D*!?1+cjLQHV4WDO5z-Xg3|T*J
zT*CXwO+mzSn-=?s6pn;sFuI5XVo0ju*rPZ9L?ZvQXAZH{YoI*^rJTyzjbI0Nt@p@I
zN|DkeWJ%FQ&0sJTO=oyb&7x<t>I9+peS<-8L2&)B0r$hn**oq1cFvZwTRg=3!~o%W
zcA&qHlKK52DYhXQY0*v2@|Od5R%0PAJ~coTF7LR9_{GjEh_CEAf%wO+J)8cn?C^;_
z{qYvc7mUEa4P)^<-hDl;mYQ-MTDo_9O)FyS6Ypkpe%UK_;%gnFc+lhXdtUBdsq5tP
z&Yq75!MC{Gh~IKEh|dIfcTtKsVW<wJeDGInqTv{jVbRo4<S`za-9P~w1bT;|k~5re
ziw*a5K4^{Gp=Vt(Y<K{z%Ha=J9`#roBA6hnCvs?ei}oXiloWIMwaASwjAJg@MW~(<
zN{BxTrx0(6y;fBuc20`oPV8nFR8%t1gLWfFfTjU=DSgO!2+LdIRusQ4_Q9jv>e(dj
z1>MO_Xyj9pxZg%^ddXO@;KPmr7Uuy&PKmls3Qs1*5OD$7RBw-+CGCDPy@+@(-RP#!
zTx-iX>0FS<`dhAvuhy+&!MY)jJxoZe2kh=%QR}2qc5`{c=yL}8nlea{VMjKy)3+y#
z9&5Ymq<OcMQMdiKWzOM$PW^fnraEJMPa@woUPrtzF1f90Q*mVPj$bD&e(CTck>!sz
zhA0>YdeB+9d&$zzXrf_E;<($Tg_SFsvVJ*w1ogT*p0tikCGpq$Qw79T)1(LIrcK1F
z(-FiqIdW3T6%nuJ@`%HEBKdZntj+s*BAG7`nJa~(h`!<!;;Th+ez!=pbTfzenT@?O
zMEA@L(Y-lCv{J{&5`OR4Og{x&7`O;<!(<6^F$e}Ai1o&{**43dkUYEf07jKHumLi9
xD;`LxnMq9=9W(I1`k+~>oQ71TR;|=>jZ$Tv1~wKA6NnHPCJ;r4kwzjb>M!evBrgB}

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