diff -Nur zircon-1.18.255/installer/unix.tcl zircon-1.18.255.new/installer/unix.tcl
--- zircon-1.18.255/installer/unix.tcl	2001-06-13 09:20:29.000000000 +0200
+++ zircon-1.18.255.new/installer/unix.tcl	2005-02-23 12:11:38.000000000 +0100
@@ -154,7 +154,7 @@
 #
 proc getWish {} {
     global Wish
-    switch {} $Wish {set Wish [findWish]}
+    set Wish "/usr/bin/wish"
 }
 #
 proc getBin {} {
@@ -217,18 +217,6 @@
     return {}
 }
 #
-proc findWish {} {
-    global env
-    foreach x [split $env(PATH) :] {
-	foreach y {wish8.3 wish8.2 wish8.1 wish8.0 wish4.2 wish4.1 wish wishx} {
-	    if {[file exists [set f [file join $x $y]]]} {
-		return $f
-	    }
-	}
-    }
-    return {}
-}
-#
 proc prog7 {file to} {
     switch -glob -- [info tclversion] 8.* return
     zinfo "Compiling $file..."