diff -crN oommf12a3/pkg/oc/config.tcl oommf12a3-patched/pkg/oc/config.tcl
*** oommf12a3/pkg/oc/config.tcl	Wed Sep 19 15:34:03 2001
--- oommf12a3-patched/pkg/oc/config.tcl	Wed May 11 17:44:57 2011
***************
*** 55,61 ****
  	if {[string length $ret]} {
  	    return $ret
  	}
! 	set ret [package provide Tcl]
  	if {[package vcompare $ret 8] >= 0} {
  	    return $ret
  	}
--- 55,61 ----
  	if {[string length $ret]} {
  	    return $ret
  	}
! 	set ret [info tclversion]
  	if {[package vcompare $ret 8] >= 0} {
  	    return $ret
  	}
***************
*** 324,332 ****
  	$this SetValue TK_EXEC_PREFIX $root
  	$this SetValue TK_PREFIX $root
  	$this SetValue TK_XINCLUDES [file join $root include X11]
! 	foreach {tlma tlmi} [split [package provide Tcl] .] {break}
! 	foreach {tkma tkmi} [split [$class TkVersion] .] {break}
! 	$this SetValue TCL_VERSION [package provide Tcl]
  	$this SetValue TCL_MAJOR_VERSION $tlma
  	$this SetValue TCL_MINOR_VERSION $tlmi
  	regsub {^[0-9]+\.[0-9]+} [info patchlevel] {} pl
--- 324,332 ----
  	$this SetValue TK_EXEC_PREFIX $root
  	$this SetValue TK_PREFIX $root
  	$this SetValue TK_XINCLUDES [file join $root include X11]
! 	regexp {^([0-9]+)\.([0-9]+)} [package provide Tcl] dummy tlma tlmi
! 	regexp {^([0-9]+)\.([0-9]+)} [$class TkVersion] dummy tkma tkmi
! 	$this SetValue TCL_VERSION [info tclversion]
  	$this SetValue TCL_MAJOR_VERSION $tlma
  	$this SetValue TCL_MINOR_VERSION $tlmi
  	regsub {^[0-9]+\.[0-9]+} [info patchlevel] {} pl