diff -cr oommf12a3/pkg/oc/tempfile.tcl oommf/pkg/oc/tempfile.tcl
*** oommf12a3/pkg/oc/tempfile.tcl	Fri Aug 25 13:01:25 2000
--- oommf/pkg/oc/tempfile.tcl	Wed Jun  4 20:16:05 2003
***************
*** 12,18 ****
      # This proc is now unused -- its contents should be migrated into
      # suitable configuration feature rules.
      private proc DefaultDirectory {} {
!         global tcl_platform
          set result "."       ;# In case all else fails
          if {[string match windows $tcl_platform(platform)]} {
              if {[info exists env(TEMP)] && [file isdirectory $env(TEMP)] \
--- 12,18 ----
      # This proc is now unused -- its contents should be migrated into
      # suitable configuration feature rules.
      private proc DefaultDirectory {} {
!         global tcl_platform env
          set result "."       ;# In case all else fails
          if {[string match windows $tcl_platform(platform)]} {
              if {[info exists env(TEMP)] && [file isdirectory $env(TEMP)] \