diff --git a/src/sysen1/pword.2662 b/src/sysen1/pword.2662
index b90c23ed..9edf774e 100644
--- a/src/sysen1/pword.2662
+++ b/src/sysen1/pword.2662
@@ -9815,6 +9815,10 @@ bltspc:	syscal sstatu,[val x ? val x ? val x ? val x ? val x
 	  jrst [move x,[mdspec,,tsspec]	 ;yes, so use MD's specs
 	        blt x,spcend-1	   ;  all of them, to the end
 		ret ]
+	camn x,[sixbit /ES/]	   ;is it ES?
+	  jrst [move x,[mdspec,,tsspec]	 ;yes, so use MD's specs
+	        blt x,spcend-1	   ;  all of them, to the end
+		ret ]
 	camn x,[sixbit /DM/]	   ;DM-P?
 	  jrst [move x,[dmspec,,tsspec]	 ;yes, use DM's specs
 	       blt x,spcend-1	   ;  all of them to the bitter end