diff --git a/example/publish-examples.forth b/example/publish-examples.forth
index 2ce0f86..3025f59 100755
--- a/example/publish-examples.forth
+++ b/example/publish-examples.forth
@@ -36,7 +36,11 @@ on the stack.
:dtd ' s:put ;
:title 'RETRO_Examples s:put ;
:head ' s:put title css ' s:put ;
-:link dup '%s
s:format s:put $. c:put ;
+:li ' s:put call '
\n s:format s:put ;
+:link dup '%s_ s:format s:put ;
+:link2 '
→_glossary s:format s:put
+ $. c:put ;
+:links [ dup link link2 ] li ;
:body ' s:put call ' s:put ;
:make dtd head body ;
~~~
@@ -45,8 +49,9 @@ on the stack.
~~~
FILE-PATH 'index.html s:append file:W file:open !FID
-[ 'Examples
s:put
- [ dir? &drop &link choose ] unix:for-each-file nl ] make
+[ 'Examples
s:put
+ [ dir? &drop &links choose ] unix:for-each-file
+ '
s:put nl ] make
@FID file:close
~~~
@@ -58,3 +63,12 @@ FILE-PATH 'index.html s:append file:W file:open !FID
[ dir? &drop [ export ] choose ] unix:for-each-file nl
~~~
+
+# Generate a Glossary File For Each
+
+~~~
+:glossary FILE-PATH over
+ 'retro-document_%s_>%s%s.glossary s:format unix:system $. c:put ;
+
+[ dir? &drop &glossary choose ] unix:for-each-file
+~~~