diff --git a/WEGA/contrib/lcc/cmd/comp/common/sty.y b/WEGA/contrib/lcc/cmd/comp/common/sty.y
index 075e618..02d90aa 100644
--- a/WEGA/contrib/lcc/cmd/comp/common/sty.y
+++ b/WEGA/contrib/lcc/cmd/comp/common/sty.y
@@ -1689,9 +1689,7 @@ register char *p;	/* pointer to name */
 			continue;
 
 		case 'v':
-			/* later..
 			i |= TVOID;
-			*/
 			continue;
 
 		case 'u':
diff --git a/WEGA/contrib/lcc/cmd/comp/u8k/stin b/WEGA/contrib/lcc/cmd/comp/u8k/stin
index d37b90d..bb85c7c 100644
--- a/WEGA/contrib/lcc/cmd/comp/u8k/stin
+++ b/WEGA/contrib/lcc/cmd/comp/u8k/stin
@@ -99,7 +99,7 @@ DCOST  :1;
 'CALL'[cucsus] C,F {$1 $A} "	callr	CL\nZc" ;
 'CALL'[lulpf] C,F {$P $1 $A} "	callr	CL\nZc" ;
 'CALL'[d] C,F {$Q $1 $A} "	callr	CL\nZc" ;
-'CALL'[cucsus] R,F {$1 $< $A} "	callr	@CL\nZc" ;
+'CALL'[cucsusv] R,F {$1 $< $A} "	callr	@CL\nZc" ;
 'CALL'[lulpf] R,F {$P $1 $< $A} "	callr	@CL\nZc" ;
 'CALL'[d] R,F {$Q $1 $< $A} "	callr	@CL\nZc" ;
 'CALL' R,F {$N $A} "	callr	@CL\nZc" ;