@@ -240,9 +241,9 @@
! PROCESS-ENTER-COMMAND
CALL NEXTWD(COMLYN,COMLEN,WD,WDMAX,WDLEN)
- IF(WDLEN > 4) CALL WRNDIE(0,'<CORREL>', &
- 'ENTER name too long, truncated to 4 characters.')
- NAME=NEXTA4(WD,WDLEN)
+ IF(WDLEN > 8) CALL WRNDIE(0,'<CORREL>', &
+ 'ENTER name too long, truncated to 8 characters.')
+ NAME=NEXTA8(WD,WDLEN)
!
WD=NEXTA4(COMLYN,COMLEN)
!