diff --git a/info/emp2html.pl b/info/emp2html.pl
index fa65ab88..17b639e8 100644
--- a/info/emp2html.pl
+++ b/info/emp2html.pl
@@ -24,20 +24,20 @@ procline:
     if (/^\.SY../) {
 #	$i = $_ =~ "\"" && ($RLENGTH = length($&), $RSTART = length($`)+1);
 #	$str = substr($_, $i + 1, length($_) - $i - 1);
-	$str = substr($_,5);
+	$str = substr($_,4);
 	$str = &htmlify($str);
 	printf "<samp>[##:##] </samp><KBD>%s</KBD><p>\n", $str;
 	next line;
     }
 
     if (/^\.EX../) {
-	$str = substr($_, 5);
+	$str = substr($_, 4);
 	printf "<br><samp>[##:##] </samp><kbd>%s</kbd><p>\n", &htmlify($str);
 	next line;
     }
 
     if (/^\.L../) {
-	$str = substr($_, 4);
+	$str = substr($_, 3);
 	printf "<h2>%s</h2>\n", &htmlify($str);
 	next line;
     }
diff --git a/info/subj2html.pl b/info/subj2html.pl
index 234ecd10..c06c02e8 100644
--- a/info/subj2html.pl
+++ b/info/subj2html.pl
@@ -25,14 +25,14 @@ procline:
     if (/^\.SY../) {
 #	$i = $_ =~ "\"" && ($RLENGTH = length($&), $RSTART = length($`)+1);
 #	$str = substr($_, $i + 1, length($_) - $i - 1);
-	$str = substr($_,5);
+	$str = substr($_,4);
 	$str = &htmlify($str);
 	printf "<samp>[##:##] </samp><KBD>%s</KBD><p>\n", $str;
 	next line;
     }
 
     if (/^\.EX../) {
-	$str = substr($_, 5);
+	$str = substr($_, 4);
 	printf "<br><samp>[##:##] </samp><kbd>%s</kbd><p>\n", &htmlify($str);
 	next line;
     }