diff -bcrN oommf12a3/pkg/oc/procs.tcl oommf/pkg/oc/procs.tcl
*** oommf12a3/pkg/oc/procs.tcl	Sat Oct 26 02:09:21 2002
--- oommf/pkg/oc/procs.tcl	Fri Jun  3 01:26:31 2011
***************
*** 709,715 ****
      set f ""
      set error [catch {
          set f [open tclIndex a]
!         puts $f $index nonewline
          close $f
          cd $oldDir
      } msg]
--- 709,715 ----
      set f ""
      set error [catch {
          set f [open tclIndex a]
!         puts -nonewline $f $index
          close $f
          cd $oldDir
      } msg]