diff --git a/lang/basic/src/bem.h b/lang/basic/src/bem.h
index 653b765a9..973b6125e 100644
--- a/lang/basic/src/bem.h
+++ b/lang/basic/src/bem.h
@@ -6,6 +6,7 @@
 #include <ctype.h>
 #include <signal.h>
 #include <system.h>
+#include <print.h>
 #include <em.h>
 #include <em_mes.h>
 
diff --git a/lang/basic/src/compile.c b/lang/basic/src/compile.c
index f008dffd1..71dd006f9 100644
--- a/lang/basic/src/compile.c
+++ b/lang/basic/src/compile.c
@@ -26,5 +26,5 @@ compileprogram()
 	while( basicline = 0, getline())
 		(void) LLparse();
 	epilogcode(); 	
-	(void) sys_close(yyin);
+	sys_close(yyin);
 }
diff --git a/lang/basic/src/parsepar.c b/lang/basic/src/parsepar.c
index f27fb9ff9..4882ce105 100644
--- a/lang/basic/src/parsepar.c
+++ b/lang/basic/src/parsepar.c
@@ -42,7 +42,7 @@ char **argv;
 				case 't': traceflag++; 
 					  break;	/* line tracing */
 				case 'h': /* split EM file */
-					  (void) fprint(STDERR,
+					  fprint(STDERR,
                                                  "h option not implemented\n");
 					  break;
 				case 'd': debug++; 
diff --git a/lang/basic/src/symbols.c b/lang/basic/src/symbols.c
index ff19f0f5f..af54ecca1 100644
--- a/lang/basic/src/symbols.c
+++ b/lang/basic/src/symbols.c
@@ -256,7 +256,7 @@ heading( )
 {
 	char procname[50];
 
-	sprint(procname,"_%s",fcn->symname);
+	(void) sprint(procname,"_%s",fcn->symname);
         C_pro_narg(procname);
 	if ( fcn->symtype== DEFAULTTYPE)
 		fcn->symtype= DOUBLETYPE;
diff --git a/lang/basic/src/util.c b/lang/basic/src/util.c
index 05254da1a..774ce8551 100644
--- a/lang/basic/src/util.c
+++ b/lang/basic/src/util.c
@@ -73,7 +73,7 @@ int i;
 {
 	static char buf[30];
 
-	(void) sprint(buf,"%d",i);
+	sprint(buf,"%d",i);
 	return(buf);
 }