diff --git a/lang/cem/cemcom.ansi/declar.g b/lang/cem/cemcom.ansi/declar.g
index 82241874..4a228142 100644
--- a/lang/cem/cemcom.ansi/declar.g
+++ b/lang/cem/cemcom.ansi/declar.g
@@ -639,6 +639,7 @@ parameter_decl(struct proto **plp;)
 	{	add_proto(new, &Ds, &Dc, level);
 		new->next = *plp;
 		*plp = new;
+		remove_declarator(&Dc);
 	}
 ;
 
diff --git a/lang/cem/cemcom.ansi/declar.str b/lang/cem/cemcom.ansi/declar.str
index ad812be0..eb38fcf4 100644
--- a/lang/cem/cemcom.ansi/declar.str
+++ b/lang/cem/cemcom.ansi/declar.str
@@ -11,7 +11,7 @@
 */
 
 struct declarator	{
-	struct declarator *next;
+	/* struct declarator *next; */
 	struct idf *dc_idf;
 	struct decl_unary *dc_decl_unary;
 	struct formal *dc_formal;	/* params for function	*/
diff --git a/lang/cem/cemcom.ansi/stack.str b/lang/cem/cemcom.ansi/stack.str
index 3c2447a6..fd7e76d7 100644
--- a/lang/cem/cemcom.ansi/stack.str
+++ b/lang/cem/cemcom.ansi/stack.str
@@ -11,7 +11,7 @@
 */
 
 struct stack_level	{
-	struct stack_level *next;
+	/* struct stack_level *next; */
 	struct stack_level *sl_next;		/* upward link		*/
 	struct stack_level *sl_previous;	/* downward link	*/
 	struct stack_entry *sl_entry;		/* sideward link	*/