diff --git a/src/sysen2/namdrg.149 b/src/sysen2/namdrg.149
index 753678df..5847de28 100755
--- a/src/sysen2/namdrg.149
+++ b/src/sysen2/namdrg.149
@@ -90,6 +90,8 @@ mapmsk==574377776000		;$<mapmsk>t; in ddt types out 10-11 interface map entry
 
 ifndef maxtty,maxtty==100	;max # tty's we can handle.
 ifndef nontty,nontty==40	;max # lisp machines
+	
+ifndef ttysiz,ttysiz=5000	;max size of TTYTYP.
 
 loc 41
 		pushj p,uuoh
@@ -1537,7 +1539,7 @@ gttys:	.call [	setz
 		[sixbit />/]
 		setz ['syseng]]
 	 jsr die
-	move c,[-5000,,ttyfil]
+	move c,[-5*ttysiz,,ttyfil]
 	.iot dkic,c
 	skipl c
 	 jsr die		;syseng;ttytyp is too big!
@@ -2131,7 +2133,7 @@ chsstm:	block 10		;time transaction started
 
 sptr:	0			;byte ptr into output buffer
 screen:	block 95.*37./5+1	;space for output to be stored till block IOT
-ttyfil:	block 1000
+ttyfil:	block ttysiz
 pictur:	block 455.*18.	;area reserved for picture
 
 constants