diff -Naru trr20.orig/Makefile trr20/Makefile
--- trr20.orig/Makefile	Tue Apr 18 21:35:07 2000
+++ trr20/Makefile	Wed Jun 13 00:06:34 2001
@@ -7,6 +7,9 @@
 ##  You MUST edit the following lines
 ##----------------------------------------------------------------------
 
+# install prefix
+prefix = /usr/local
+
 # Your Full name or E-mail address
 installer = trr-installer@where.you.are
 
@@ -14,14 +17,13 @@
 japanese = t
 
 # Where TRR directory is found
-trrdir = /usr/local/trr20
+trrdir = $(prefix)/share/emacs/site-lisp/trr
 
 # Where info files go.
-infodir = /usr/local/info
-#infodir = /usr/local/lib/emacs/info
+infodir = $(prefix)/info
 
 # Where TRR binary files go.
-bindir = /usr/local/bin
+bindir = $(prefix)/bin
 
 # Name of your emacs binary
 EMACS = emacs
@@ -36,11 +38,11 @@
 
 # Name of your sed
 #SED = /usr/bin/sed
-SED = /bin/sed
+SED = sed
 
 # Name of your grep
 #GREP = /usr/bin/grep
-GREP = /bin/grep
+GREP = grep
 
 ##----------------------------------------------------------------------
 ## You MAY need to edit these
@@ -113,7 +115,7 @@
 main: elc $(SUBPROGS)
 
 install: main install-dir
-	for i in $(SUBPROGS); do $(INSTALL) -c -m 6755 $$i $(bindir); done
+	for i in $(SUBPROGS); do $(INSTALL) -c -m 4755 $$i $(bindir); done
 	for i in $(TRRELC) CONTENTS; \
 		do $(INSTALL) -c -m 644 $$i $(trrdir); done
 	(cd text; for i in $(TEXTS); \
diff -Naru trr20.orig/trr-mesg.el trr20/trr-mesg.el
--- trr20.orig/trr-mesg.el	Tue Apr 18 21:39:17 2000
+++ trr20/trr-mesg.el	Wed Jun 13 00:01:33 2001
@@ -125,3 +125,3 @@
 	      "Aren't you ashamed of having done such a thing?")))
-   ((< TRR:whole-char-count 270)
+   ((< TRR:whole-char-count 160)
     (insert (if TRR:japanese
@@ -129,3 +129,3 @@
 	      "That's not fair! Too few letters in the text!")))
-   ((and (< TRR:whole-char-count 520) TRR:typist-flag)
+   ((and (< TRR:whole-char-count 480) TRR:typist-flag)
     (insert (if TRR:japanese
diff -Naru trr20.orig/trr.el.base trr20/trr.el.base
--- trr20.orig/trr.el.base	Tue Apr 18 21:40:08 2000
+++ trr20/trr.el.base	Wed Jun 13 00:05:36 2001
@@ -632,8 +632,8 @@
   (setq TRR:cheat-flag
 	(or 
 	 (if TRR:typist-flag
-	     (< TRR:whole-char-count 520)
-	   (< TRR:whole-char-count 270))
+	     (< TRR:whole-char-count 480)
+	   (< TRR:whole-char-count 160))
 	 (> TRR:eval 750))))