diff --git a/graphics/grTk1.c b/graphics/grTk1.c
index 19093847..5521cc82 100644
--- a/graphics/grTk1.c
+++ b/graphics/grTk1.c
@@ -527,6 +527,7 @@ GrTkInit(dispType)
 	    TxPrintf("None of TrueColor 15, 16 or 24, or PseudoColor 8 found. "
 			"Cannot initialize DISPLAY %s\n", getenv("DISPLAY"));
 	    XFree(grvisual_get);
+	    GrClosePtr = NULL;
 	    MainExit(1);
 	}
 	else