diff --git a/packages/seacas/applications/explore/exp_comand.f b/packages/seacas/applications/explore/exp_comand.f
index 73479c3b08..92a73869d2 100644
--- a/packages/seacas/applications/explore/exp_comand.f
+++ b/packages/seacas/applications/explore/exp_comand.f
@@ -319,7 +319,8 @@ SUBROUTINE COMAND (A, IA, EXODUS, DBNAME, QAREC, INFO,
         IF (LISTYP .EQ. ' ') THEN
           CALL ABRSTR (LISTYP, WORD, SELTBL)
           IF (LISTYP .NE. ' ') THEN
-            CALL PRTERR ('CMDREQ', 'Please use the SELECT command')
+            CALL PRTERR ('CMDREQ', 'Please use the SELECT '
+     $            // LISTYP(:LENSTR(LISTYP)) // ' command')
             VERB = 'SELECT'
           ELSE
             LISTYP = WORD