diff -crN oommf12a3/app/oxs/base/output.tcl oommf/app/oxs/base/output.tcl
*** oommf12a3/app/oxs/base/output.tcl	Tue Aug  6 12:40:09 2002
--- oommf/app/oxs/base/output.tcl	Wed Mar 18 19:14:15 2009
***************
*** 121,127 ****
              set n [$o Cget -name]
              set u [$o Cget -units]
              set h [$o Cget -handle]
!             lappend triples [list $n $u [Oxs_OutputGet $h]]
          }
          # We're sending DataTable data.  Set up an event to guarantee
          # the table gets closed when the problem ends.
--- 121,134 ----
              set n [$o Cget -name]
              set u [$o Cget -units]
              set h [$o Cget -handle]
!             set data [Oxs_OutputGet $h]
!             ### KLUDGE KLUDGE KLUDGE ###
!             if {[catch {expr {1.0*$data}}]} {
!                 # Assume this is an underflow bug
!                 set data 0.0
!             }
!             ### KLUDGE KLUDGE KLUDGE ###
!             lappend triples [list $n $u $data]
          }
          # We're sending DataTable data.  Set up an event to guarantee
          # the table gets closed when the problem ends.