diff --git a/HSBencher/App.hs b/HSBencher/App.hs
--- a/HSBencher/App.hs
+++ b/HSBencher/App.hs
@@ -303,7 +303,7 @@
       let ts@[t1,t2,t3]    = map (\x -> showFFloat Nothing x "")
                              [gettime minR, gettime medianR, gettime maxR]
           prods@[p1,p2,p3] = map mshow [getprod minR, getprod medianR, getprod maxR]
-          mshow Nothing  = ""
+          mshow Nothing  = "0"
           mshow (Just x) = showFFloat (Just 2) x "" 
 
           -- These are really (time,prod) tuples, but a flat list of
diff --git a/hsbencher.cabal b/hsbencher.cabal
--- a/hsbencher.cabal
+++ b/hsbencher.cabal
@@ -1,6 +1,6 @@
 
 name:                hsbencher
-version:             1.3.4
+version:             1.3.6
 -- CHANGELOG:
 -- 1.0   : Initial release, new flexible benchmark format.
 -- 1.1   : Change interface to RunInPlace
@@ -11,6 +11,7 @@
 -- 1.3.1 : bugfix
 -- 1.3.2 : change policy for timeouts and errors
 -- 1.3.4 : Add ability to prune/select benchmarks with commmand line args
+-- 1.3.6 : bugfix productivity for timeouts
 
 synopsis:  Flexible benchmark runner for Haskell and non-Haskell benchmarks.