diff --git a/fer/gnl/list_dsg_comma_tab.F b/fer/gnl/list_dsg_comma_tab.F
index a3021309e..8a7591460 100644
--- a/fer/gnl/list_dsg_comma_tab.F
+++ b/fer/gnl/list_dsg_comma_tab.F
@@ -387,6 +387,7 @@ SUBROUTINE LIST_DSG_COMMA_TAB (dset, cx_list, mr_list, nvar,
 * ... have the user's constraints removed this observation?
 	      IF (.NOT.process_obs(iobs)) CYCLE
 
+*             Appending space just to get rid of a nonsense compiler warning
 	      line_buff = id_buff(:ilen)//' '
 	      slen = ilen
 
diff --git a/fer/gnl/list_dsg_data.F b/fer/gnl/list_dsg_data.F
index ff542949e..99ac4d0cb 100644
--- a/fer/gnl/list_dsg_data.F
+++ b/fer/gnl/list_dsg_data.F
@@ -396,7 +396,7 @@ SUBROUTINE LIST_DSG_DATA ( dset, cx_list, mr_list, nvar,
 
 	   IF (orientation .NE. pfeatureType_Point) THEN
 	      WRITE ( risc_buff, FMT ) 
-     .           vname_buff(:vname_len), feature_idname(:TM_LENSTR1(feature_idname))//'-id'
+     .           vname_buff(:vname_len), feature_idname(:TM_LENSTR1(feature_idname))
 	      IF (.NOT.norow) CALL SPLIT_LIST(pttmode_explct, list_lun, risc_buff, 0)
 	   ENDIF