diff --git a/src/frontend/inp.c b/src/frontend/inp.c
index 889524e5c..2b88454c5 100644
--- a/src/frontend/inp.c
+++ b/src/frontend/inp.c
@@ -1830,13 +1830,6 @@ inp_parse_temper_trees(struct circ *circ)
     }
 }
 
- /* set modtlist and devtlist. Called from com_scirc(), when another circuit is selected */
-void
-set_tlist(struct circ *curckt)
-{
-    modtlist = curckt->modtlist;
-    devtlist = curckt->devtlist;
-}
 
 /* remove the actual modtlist and devtlist */
 void
@@ -1860,8 +1853,6 @@ rem_tlist(struct circ *circ)
         tfree(p);
         p = next_p;
     }
-    devtlist = NULL;
-    modtlist = NULL;
 }
 
 void
diff --git a/src/frontend/runcoms.c b/src/frontend/runcoms.c
index 31c299e6f..1b58e0215 100644
--- a/src/frontend/runcoms.c
+++ b/src/frontend/runcoms.c
@@ -112,8 +112,6 @@ com_scirc(wordlist *wl)
     dbs = ft_curckt->ci_dbs;
     /* set the numparam dicos structure for use with measure */
     nupa_set_dicoslist(ft_curckt->ci_dicos);
-    /* set the temper lists */
-    set_tlist(ft_curckt);
 }
 
 
diff --git a/src/frontend/runcoms2.c b/src/frontend/runcoms2.c
index eebc65cd6..dd3798279 100644
--- a/src/frontend/runcoms2.c
+++ b/src/frontend/runcoms2.c
@@ -285,6 +285,5 @@ com_remcirc(wordlist *wl)
         modtab = ft_curckt->ci_modtab;
         dbs = ft_curckt->ci_dbs;
         nupa_set_dicoslist(ft_curckt->ci_dicos);
-        set_tlist(ft_curckt);
     }
 }
diff --git a/src/include/ngspice/fteext.h b/src/include/ngspice/fteext.h
index 1e84cd413..427da7e91 100644
--- a/src/include/ngspice/fteext.h
+++ b/src/include/ngspice/fteext.h
@@ -221,7 +221,6 @@ extern void mc_free(void);
 void eval_seed_opt(struct line *deck);
 
 extern char** circarray;
-extern void set_tlist(struct circ *curckt);
 extern void rem_tlist(struct circ *curckt);
 
 /* nutinp.c */