diff -crN oommf12a3/pkg/oc/main.tcl oommf/pkg/oc/main.tcl
*** oommf12a3/pkg/oc/main.tcl	Wed Sep 11 21:01:05 2002
--- oommf/pkg/oc/main.tcl	Fri Jun  4 20:44:03 2004
***************
*** 41,47 ****
              proc exit args "[list eval $class Exit] \$args"
  	}
  	global argv0 env auto_path
! 	if {[info exists env(OOMMF_ROOT)]} {
  	    set appPath [Oc_DirectPathname [file join [pwd] $argv0]]
  	    set root [Oc_DirectPathname $env(OOMMF_ROOT)]
  	    foreach re [file split $root] ape [file split $appPath] {
--- 41,47 ----
              proc exit args "[list eval $class Exit] \$args"
  	}
  	global argv0 env auto_path
! 	if {[info exists env(OOMMF_ROOT)] && [info exists argv0]} {
  	    set appPath [Oc_DirectPathname [file join [pwd] $argv0]]
  	    set root [Oc_DirectPathname $env(OOMMF_ROOT)]
  	    foreach re [file split $root] ape [file split $appPath] {