diff --git a/util/wm-oldmenu2new b/util/wm-oldmenu2new
index 6cdc7c2b..5ac80155 100755
--- a/util/wm-oldmenu2new
+++ b/util/wm-oldmenu2new
@@ -129,6 +129,7 @@ perl - $T <<-'EOF' > $T-p
 	for (@foo2) {
 		s/^(\s*)"([^"]*)"\s\s*END/\1),/;
 		s/^(\s*)"([^"]*)"\s\s*EXEC\s\s*(.*)$/\1($v\n\1"\2",$v\n\1EXEC,$v\n\1"\3"$v\n\1),/;
+		s/^(\s*)"([^"]*)"\s\s*SHEXEC\s\s*(.*)$/\1($v\n\1"\2",$v\n\1SHEXEC,$v\n\1"\3"$v\n\1),/;
 		push @foo,split "\n";
 	}
 	@foo2=();
@@ -146,6 +147,7 @@ s/^(\s*)"([^"]*)"\s\s*OPEN_MENU\s\s*(.*)$/\1($v\n\1"\2",$v\n\1OPEN_MENU,$v\n\1"\
 	for (@foo) {
 		s/^(\s*)([^ 	]*)\s\s*END/\1),/;
 		s/^(\s*)([^ 	]*)\s\s*EXEC\s\s*(.*)$/\1($v\n\1"\2",$v\n\1EXEC,$v\n\1"\3"$v\n\1),/;
+		s/^(\s*)([^ 	]*)\s\s*SHEXEC\s\s*(.*)$/\1($v\n\1"\2",$v\n\1SHEXEC,$v\n\1"\3"$v\n\1),/;
 		push @foo2,split "\n";
 	}
 	@foo=();