diff -bcrN oommf11b2/ext/oc/procs.tcl oommf/ext/oc/procs.tcl
*** oommf11b2/ext/oc/procs.tcl	Thu Nov 20 17:41:34 2003
--- oommf/ext/oc/procs.tcl	Fri Jun  3 00:07:23 2011
***************
*** 639,645 ****
      set f ""
      set error [catch {
          set f [open tclIndex a]
!         puts $f $index nonewline
          close $f
          cd $oldDir
      } msg]
--- 639,645 ----
      set f ""
      set error [catch {
          set f [open tclIndex a]
!         puts -nonewline $f $index
          close $f
          cd $oldDir
      } msg]