diff -crN oommf12a3/pkg/oc/custom.tcl oommf/pkg/oc/custom.tcl
*** oommf12a3/pkg/oc/custom.tcl	Wed Oct 17 22:12:37 2001
--- oommf/pkg/oc/custom.tcl	Thu Mar 20 19:37:41 2003
***************
*** 2,9 ****
  #
  #	OOMMF core provided customizations to Tcl/Tk
  #
! # Last modified on: $Date: 2001/10/18 02:12:37 $
! # Last modified by: $Author: donahue $
  #
  # This file provides some customization/extensions to Tcl/Tk that
  # are common across the OOMMF project.
--- 2,9 ----
  #
  #	OOMMF core provided customizations to Tcl/Tk
  #
! # Last modified on: $Date: 2003/03/19 16:05:35 $
! # Last modified by: $Author: dgp $
  #
  # This file provides some customization/extensions to Tcl/Tk that
  # are common across the OOMMF project.
***************
*** 147,158 ****
  		    foreach {_ pkg} $pair {break}
  		    set ver [package provide $pkg]
  		    if {[catch {package vcompare $ver $ver}]} {
! 			# Attempt to work around broken [info loaded] that
! 			# doesn't return proper package names
  			set ver [package provide [string tolower $pkg]]
  			if {[catch {package vcompare $ver $ver}]} {
- 			    Oc_Log Log "Bad package $pkg: loaded, but not\
- 				    provided." warning
  			    continue
  			}
  		    }
--- 147,157 ----
  		    foreach {_ pkg} $pair {break}
  		    set ver [package provide $pkg]
  		    if {[catch {package vcompare $ver $ver}]} {
! 			# Attempt to work around [info loaded] misfeature that
! 			# "package" names returned are not [package] names.
! 			# Grrrrr......
  			set ver [package provide [string tolower $pkg]]
  			if {[catch {package vcompare $ver $ver}]} {
  			    continue
  			}
  		    }