Index: tolbase/lib/toltk/bysgraph.tcl
===================================================================
--- tolbase/lib/toltk/bysgraph.tcl	(revision dff0431b2fb581c9cbf17b8436a950438858d8f3)
+++ tolbase/lib/toltk/bysgraph.tcl	(revision e55369eafbfa94cd221790ed0f5bd9a9a0aba604)
@@ -657,6 +657,6 @@
     set tmpOpt(var,yAxisMax) [lindex $values_y 1]
     ::bayesGraph::GrapOptApplyAxisLimits $this y \
-      [expr $tmpOpt(var,yAxisMin) - ($tmpOpt(var,yAxisMin) / 100)] \
-      [expr $tmpOpt(var,yAxisMax) + ($tmpOpt(var,yAxisMax) / 100)]
+      [expr $tmpOpt(var,yAxisMin) - abs($tmpOpt(var,yAxisMin) / 100)] \
+      [expr $tmpOpt(var,yAxisMax) + abs($tmpOpt(var,yAxisMax) / 100)]
   }
   if {([info exists values_y2]) && ([llength $values_y2])} {
@@ -664,6 +664,6 @@
     set tmpOpt(var,y2AxisMax) [lindex $values_y2 1]
     ::bayesGraph::GrapOptApplyAxisLimits $this y2 \
-      [expr $tmpOpt(var,y2AxisMin) - ($tmpOpt(var,y2AxisMin) / 100)] \
-      [expr $tmpOpt(var,y2AxisMax) + ($tmpOpt(var,y2AxisMax) / 100)]
+      [expr $tmpOpt(var,y2AxisMin) - abs($tmpOpt(var,y2AxisMin) / 100)] \
+      [expr $tmpOpt(var,y2AxisMax) + abs($tmpOpt(var,y2AxisMax) / 100)]
   }
   if {([info exists values_x]) && ([llength $values_x])} {