diff --git a/Makefile b/Makefile
index 62cd4565..f0e5ae43 100644
--- a/Makefile
+++ b/Makefile
@@ -35,9 +35,9 @@ DOC = info _info_ sysdoc sysnet syshst kshack _teco_ emacs emacs1 c kcc \
       kldcp libdoc lisp _mail_ midas quux scheme manual wp chess ms macdoc \
       aplogo _klfe_ pdp11 chsncp cbf rug bawden llogo eak clib teach pcnet \
       combat pdl minits mits_s chaos hal -pics- imlac maint
-BIN = sys1 sys2 emacs _teco_ lisp liblsp alan inquir sail comlap c decsys \
-      graphs draw datdrw fonts fonts1 fonts2 games macsym maint imlac \
-      _www_ gt40 llogo bawden sysbin -pics-
+BIN = sys1 sys2 sys3 emacs _teco_ lisp liblsp alan inquir sail comlap c \
+       decsys graphs draw datdrw fonts fonts1 fonts2 games macsym maint \
+       imlac _www_ gt40 llogo bawden sysbin -pics-
 MINSRC = midas system $(DDT) $(SALV) $(KSFEDR) $(DUMP)
 
 # These are not included on the tape.
diff --git a/bin/sys3/ts.reduce b/bin/sys3/ts.reduce
new file mode 100755
index 00000000..e91f05b6
Binary files /dev/null and b/bin/sys3/ts.reduce differ
diff --git a/doc/programs.md b/doc/programs.md
index 04becc18..e587d0b6 100644
--- a/doc/programs.md
+++ b/doc/programs.md
@@ -263,6 +263,7 @@
 - REATTA, reattaches disowned jobs to terminal.
 - RECORD, save TV display contents as text file.
 - REDRCT, redirect IP routing.
+- REDUCE...
 - RIPDEV, replacement for MLDEV for no-longer-existing machines.
 - RMAIL, mail reading client.
 - RMODE, text editor.