diff --git a/scp.c b/scp.c
index f988b464..7d65626c 100644
--- a/scp.c
+++ b/scp.c
@@ -6435,6 +6435,8 @@ for (j=0, r = SCPE_OK; j<attcnt; j++) {
     free (attnames[j]);
     }
 Cleanup_Return:
+for (j=0; j < attcnt; j++)
+    free (attnames[j]);
 free (attnames);
 free (attunits);
 free (attswitches);