--- grass-6.4.2/visualization/nviz/src/draw.c	2008-12-19 21:29:59.000000000 +0100
+++ grass-6.4.2/visualization/nviz/src/draw_new.c	2013-01-21 22:22:09.819456565 +0100
@@ -32,7 +32,7 @@
 void CancelFunc_Hook(void)
 {
     if (cancel_script != NULL) {
-	TkCopyAndGlobalEval(cancel_interp, cancel_script);
+	Tcl_EvalEx(cancel_interp, cancel_script, -1, TCL_EVAL_GLOBAL);
     }
 }