$NetBSD: patch-ag,v 1.1.1.1 2001/02/23 20:36:31 jtb Exp $

--- itcl/generic/itcl_cmds.c.orig	Tue Aug 29 15:58:00 2000
+++ itcl/generic/itcl_cmds.c	Fri Nov 10 01:24:15 2000
@@ -62,7 +62,7 @@
             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 .. library]\n\