List SCF files by stem, removing the suffix.

diff --git a/main.c b/main.c
index b3a34269d3b0de6df8585ed0a4ab98d392031670..d939b3dd0ac7edfb2bc1834febef5633af313819 100644 (file)
--- a/main.c
+++ b/main.c
@@ -578,6 +578,7 @@ main(int argc, char *argv[])
            if (scf->fp)
            {
                read_scf(scf);
+               scf->name[strlen(scf->name) - strlen(".scf")] = '\0';
                fclose(scf->fp);
            }