$OpenBSD$
--- tkdgen.tcl.orig	Tue Sep 16 04:15:35 2008
+++ tkdgen.tcl	Tue Sep 16 04:15:35 2008
@@ -8,7 +8,7 @@
 # Version 2 or later version.
 # $Id: patch-tkdgen_tcl,v 1.1.1.1 2008/11/10 13:29:29 yason Exp $
 # wish \
-exec wish "$0" "$@" || clear; echo "'wish' não encontrado! -- Tcl/Tk é necessário para rodar esse programa."; exit 1
+exec wish8.4 "$0" "$@" || clear; echo "'wish' não encontrado! -- Tcl/Tk é necessário para rodar esse programa."; exit 1
 
 set dirHome $env(HOME)
 cd $dirHome