diff -Naur Tk-804.027/pTk/mTk/generic/tkEvent.c Tk-804.027_gtk2_patch/pTk/mTk/generic/tkEvent.c
--- Tk-804.027/pTk/mTk/generic/tkEvent.c	2003-12-30 12:54:31.000000000 +0100
+++ Tk-804.027_gtk2_patch/pTk/mTk/generic/tkEvent.c	2006-03-27 15:06:39.682973296 +0200
@@ -986,7 +986,10 @@
 		TkWmProtocolEventProc(winPtr, eventPtr);
 	    } else {
 		/* Perl/Tk had/has its own hook for this */
-		LangClientMessage(winPtr->mainPtr->interp, (Tk_Window) winPtr, eventPtr);
+ 		if (eventPtr && winPtr && winPtr->mainPtr) {
+LangClientMessage(winPtr->mainPtr->interp, (Tk_Window) winPtr,
+eventPtr);
+ 		}
 
 		/*
 		 * Finally, invoke any ClientMessage event handlers.