diff --git a/lang/basic/src/bem.c b/lang/basic/src/bem.c
index fe747dc6c..1791db4ba 100644
--- a/lang/basic/src/bem.c
+++ b/lang/basic/src/bem.c
@@ -28,7 +28,6 @@ static char rcs_graph[]	= RCS_GRAPH ;
 char	*program;
 
 char	datfname[MAXFILENAME] ;
-char	tmpfname[MAXFILENAME] ;
 
 char	*inpfile, *outfile;
 int	BEMINTSIZE = EMINTSIZE;
diff --git a/lang/basic/src/bem.h b/lang/basic/src/bem.h
index 0f09629ec..1ee7b457e 100644
--- a/lang/basic/src/bem.h
+++ b/lang/basic/src/bem.h
@@ -44,7 +44,6 @@ extern char	*inpfile;		/* input tko compiler */
 extern char	*outfile;		/* output from compiler */
 
 extern char	datfname[MAXFILENAME];	/* data statements file */
-extern char	tmpfname[MAXFILENAME];	/* temporary statements file */
 
 extern File	*emfile;		/* EM output file */
 extern File	*datfile;		/* data file */
diff --git a/lang/basic/src/initialize.c b/lang/basic/src/initialize.c
index 3a7edff5d..09d510ea5 100644
--- a/lang/basic/src/initialize.c
+++ b/lang/basic/src/initialize.c
@@ -4,7 +4,6 @@
  */
 
 #include "bem.h"
-#include <em_path.h>
 
 #ifndef NORSCID
 static char rcs_id[] = "$Header$";
@@ -21,7 +20,6 @@ initialize()
 	register char *cindex, *cptr;
         int result1, result2;
 
-	(void) sprint(tmpfname,"%s/abc%d",TMP_DIR,getpid());
 	/* Find the basename */
 	/* Strip leading directories */
 	cindex= (char *)0;