Graph problems in 3.12

[John Keith Hohm]

I am trying to do my homework, and I need a graph of x sin (1/x) from
[-2..2] [-2..2], for which I am using the graph package.  This worked
fine for a similar graph of x / abs{x}, but now I am getting just a flat
line, as if I was graphing 0.  Attached is my very small sample to show
the problem.

@SysInclude { graph }
@SysInclude { doc }
@Doc
@Text @Begin
@Graph
  style {axes}
  xorigin {-2}
  yorigin {-2}
  xmin {-2}
  xmax {2}
  ymin {-2}
  ymax {2}
  width {6cm}
  height {4cm}
{
  @Data pairs {solid} {
    xloop from { -2 } to { 2 } by { 0.01 } do {
      if cond {abs{x} >= 0.01} then {x {x * sin {1/x}}} else {}
    }
  }
}
@End @Text