diff --git a/src/sysen2/namdrg.148 b/src/sysen2/namdrg.149
similarity index 99%
rename from src/sysen2/namdrg.148
rename to src/sysen2/namdrg.149
index 8dabdab7..753678df 100755
--- a/src/sysen2/namdrg.148
+++ b/src/sysen2/namdrg.149
@@ -227,11 +227,15 @@ name:	.close 1,	;close the channel we were loaded on
 	.suset [.roption,,a]
 	tlo a,%opint+%opliv+%opopc
 	.suset [.soption,,a]
-	move a,[squoze 0,nf11ty]
-	.eval a,
+	move b,[squoze 0,nf11ty]
+	.eval b,	;TTY # of console free display
 	 .value
-	caie a,52
-	 .value		;TTY # of console free display changed
+	setz c,
+	rotc b,-3	;Compute the SIXBIT device name Tnn.
+	lsh b,3
+	rotc b,3
+	iori b,'T00
+	lsh b,18.
 	.suset [.s40addr,,[forty]]
 	.suset [.roption,,a]
 	skipe debug
@@ -247,9 +251,10 @@ name:	.close 1,	;close the channel we were loaded on
 	 .value
 	jrst name2
 
-name1:	.open tyoc,[%tjmor+%tjctn+%tjdis+.uao,,'t52]	;char unit out, disp. mode, no continuation lns
+name1:	;char unit out, disp. mode, no continuation lns
+        syscal OPEN,[ [%tjmor+%tjctn+%tjdis+.uao,,tyoc] ? setz b ]
 	 .value
-	.open tybc,[%tjmor+%tjctn+%tjdis+.bao,,'t52]
+	syscal OPEN,[ [%tjmor+%tjctn+%tjdis+.bao,,tybc] ? setz b ]
 	 .value
 name2:	.call [	setz ? 'cnsget ? 1000,,tyoc ? 2000,,tcmxv ? 2000,,tcmxh
 		2000,,a ? 2000,,a ? setzm a]