diff --git a/libraries/psx/psx_wordexp.c b/libraries/psx/psx_wordexp.c
index 30e3ed2f176..c8f6165ba46 100644
--- a/libraries/psx/psx_wordexp.c
+++ b/libraries/psx/psx_wordexp.c
@@ -171,6 +171,9 @@ F77_SUBROUTINE(psx_wordexp)( CHARACTER(WORDS), INTEGER(CONTEXT),
                         "Unrecognized error from wordexp", STATUS );
           }
 
+          psx1_rep_c( "PSX_WORDEXP_ERR3", "Error expanding words within "
+                      "string '%s'", STATUS, words );
+
         }
       }
     }