$NetBSD: patch-ag,v 1.1.1.1 2004/09/24 21:16:02 dmcmahill Exp $

--- itcl/generic/itcl_cmds.c.orig	2000-08-28 22:58:00.000000000 -0500
+++ itcl/generic/itcl_cmds.c
@@ -62,9 +62,9 @@ namespace eval ::itcl {\n\
             if {[info exists env(ITCL_LIBRARY)]} {\n\
                 lappend dirs $env(ITCL_LIBRARY)\n\
             }\n\
-            lappend dirs [file join [file dirname $tcl_library] itcl$version]\n\
+            lappend dirs [file join [file dirname $tcl_library] tcl itcl$version]\n\
             set bindir [file dirname [info nameofexecutable]]\n\
-            lappend dirs [file join $bindir .. lib itcl$version]\n\
+            lappend dirs [file join $bindir .. lib tcl itcl$version]\n\
             lappend dirs [file join $bindir .. library]\n\
             lappend dirs [file join $bindir .. .. library]\n\
             lappend dirs [file join $bindir .. .. itcl library]\n\