diff --git a/readlto b/readlto
index 5fdc11e..01ccc0a 100755
--- a/readlto
+++ b/readlto
@@ -35,7 +35,7 @@ while getopts ":t:e:xh" opt ; do
     case "${opt}" in
         t) TAPE_SERIAL="${OPTARG}" ;;
         e) TAPE_EJECT="${OPTARG}" ;;
-        x) TAPE_SERIAL_REGEX="^[A-Z0-9]{6}(L[5-9]|M8)$" ;;
+        x) TAPE_SERIAL_REGEX="^[A-Z0-9]{6}(L[5-9A]|M8)$" ;;
         h) _usage ; exit 0 ;;
         :) echo "Option -${OPTARG} requires an argument" ; exit 1 ;;
         *) echo "Bad option -${OPTARG}" ; _usage ; exit 1 ;;
diff --git a/verifylto b/verifylto
index 6657c13..9f9d56f 100755
--- a/verifylto
+++ b/verifylto
@@ -40,7 +40,7 @@ while getopts ":t:e:xV:h" opt ; do
     case "${opt}" in
         t) TAPE_SERIAL="${OPTARG}" ;;
         e) TAPE_EJECT="${OPTARG}" ;;
-        x) TAPE_SERIAL_REGEX="^[A-Z0-9]{6}(L[5-9]|M8)$" ;;
+        x) TAPE_SERIAL_REGEX="^[A-Z0-9]{6}(L[5-9A]|M8)$" ;;
         V) VERIFY_TOP_LEVEL="${OPTARG}" ;;
         h) _usage ; exit 0 ;;
         :) echo "Option -${OPTARG} requires an argument" ; exit 1 ;;
diff --git a/writelto b/writelto
index 768e6b1..e9dc7ef 100755
--- a/writelto
+++ b/writelto
@@ -137,7 +137,7 @@ while getopts ":t:e:vV:xh" opt ; do
         e) TAPE_EJECT="${OPTARG}" ;;
         v) VERIFY="Y" ;;
         V) VERIFY_TOP_LEVEL="${OPTARG}" ;;
-        x) TAPE_SERIAL_REGEX="^[A-Z0-9]{6}(L[5-9]|M8)$" ;;
+        x) TAPE_SERIAL_REGEX="^[A-Z0-9]{6}(L[5-9A]|M8)$" ;;
         h) _usage ; exit 0 ;;
         :) echo "Option -${OPTARG} requires an argument" ; exit 1 ;;
         *) echo "Bad option -${OPTARG}" ; _usage ; exit 1 ;;