diff --git a/src/spicelib/devices/txl/txlext.h b/src/spicelib/devices/txl/txlext.h
index 49f7e9a58..994b9af18 100644
--- a/src/spicelib/devices/txl/txlext.h
+++ b/src/spicelib/devices/txl/txlext.h
@@ -8,3 +8,4 @@ extern int TXLmParam(int,IFvalue*,GENmodel*);
 extern int TXLparam(int,IFvalue*,GENinstance*,IFvalue*);
 extern int TXLsetup(SMPmatrix*,GENmodel*,CKTcircuit*,int*);
 extern int TXLunsetup(GENmodel*, CKTcircuit*);
+extern int TXLdevDelete(GENinstance*);
diff --git a/src/spicelib/devices/txl/txlinit.c b/src/spicelib/devices/txl/txlinit.c
index bfdb189bb..594f0eb4e 100644
--- a/src/spicelib/devices/txl/txlinit.c
+++ b/src/spicelib/devices/txl/txlinit.c
@@ -49,7 +49,7 @@ SPICEdev TXLinfo = {
     .DEVaccept = NULL,
     .DEVdestroy = NULL,
     .DEVmodDelete = NULL,
-    .DEVdelete = NULL,
+    .DEVdelete = TXLdevDelete,
     .DEVsetic = NULL,
     .DEVask = TXLask,
     .DEVmodAsk = TXLmodAsk,
diff --git a/src/spicelib/devices/txl/txlsetup.c b/src/spicelib/devices/txl/txlsetup.c
index 55b2dbf39..ca471b4e2 100644
--- a/src/spicelib/devices/txl/txlsetup.c
+++ b/src/spicelib/devices/txl/txlsetup.c
@@ -1172,3 +1172,13 @@ static int find_roots(double a1_in, double a2_in, double a3_in,
    return(1);
 }
 
+int
+TXLdevDelete(GENinstance* inst)
+{
+    TXLinstance* here = (TXLinstance*)inst;
+    if (here->txline2)
+        tfree(here->txline2);
+    if (here->txline)
+        tfree(here->txline);
+    return OK;
+}