diff --git a/WINGs/wtextfield.c b/WINGs/wtextfield.c
index 419ee250..66afc42c 100644
--- a/WINGs/wtextfield.c
+++ b/WINGs/wtextfield.c
@@ -1338,6 +1338,7 @@ destroyTextField(TextField *tPtr)
 #endif
 
     WMReleaseFont(tPtr->font);
+    WMDeleteSelectionHandler(tPtr, XA_PRIMARY);
 
     if (tPtr->text)
 	free(tPtr->text);