$OpenBSD: patch-lib_Init_tcl,v 1.2 2010/07/28 18:03:00 sebastia Exp $
--- lib/Init.tcl.orig	Thu Mar 12 20:59:00 2009
+++ lib/Init.tcl	Sat Aug 29 13:15:51 2009
@@ -35,7 +35,7 @@ proc ::Init::SetThis {mainScript} {
     set this(prefsDriverDir) "CoccinellaPrefs"
     
     # Collect paths in 'this' array.
-    set path                    [file dirname $mainScript]
+    set path                    ${COCCINELLALIB}
     set this(path)              $path
     set this(script)            $mainScript
     
