diff --git a/packages/seacas/applications/gjoin/gjoin.f b/packages/seacas/applications/gjoin/gjoin.f
index 5be91707b7..e55890da6c 100644
--- a/packages/seacas/applications/gjoin/gjoin.f
+++ b/packages/seacas/applications/gjoin/gjoin.f
@@ -567,7 +567,7 @@ PROGRAM GJOIN2
          CALL MDDEL ('NNNPO')
          CALL MDDEL ('ISCR')
          call mddel ('nodscr')
-         call mddel ('NAMSCR')
+         call mcdel ('NAMSCR')
 
 C      --Squeeze the nodal point sets