$OpenBSD$
--- tkdgen.tcl.orig	Mon Feb 23 20:20:03 2004
+++ tkdgen.tcl	Mon Nov 10 19:41:33 2008
@@ -8,7 +8,7 @@
 # Version 2 or later version.
 # $Id: patch-tkdgen_tcl,v 1.4 2012/01/23 07:38:16 yason Exp $
 # wish \
-exec wish "$0" "$@" || clear; echo "'wish' não encontrado! -- Tcl/Tk é necessário para rodar esse programa."; exit 1
+exec wish${MODTK_VERSION} "$0" "$@" || clear; echo "'wish' não encontrado! -- Tcl/Tk é necessário para rodar esse programa."; exit 1
 
 set dirHome $env(HOME)
 cd $dirHome