Giving gcd/lcm an unexpected argument shows a strange message about error

With Gauche 0.9.4:

    gosh> (gcd '())
    *** ERROR: unbound variable: error
    Stack Trace:
    _______________________________________
      0  (eval expr env)
            At line 179 of "/home/tabe/opt/share/gauche-0.9/0.9.4/lib/gauche/interactive.scm"
    gosh> (lcm '())
    *** ERROR: unbound variable: error
    Stack Trace:
    _______________________________________
      0  (eval expr env)
            At line 179 of "/home/tabe/opt/share/gauche-0.9/0.9.4/lib/gauche/interactive.scm"
    gosh>