Default problems with accept

[jbarnett@charming.nrtc.northrop.com]

If I evaluate
  (accept '((token-or-type (("None" . :none)) net:printer) :default :none))
I get the following on the terminal
  Enter a printer or None [default None]:
If I hit return, the value is the default object (last input) of type printer,
i.e., the specified and displayed default is not used.  In addition, evaluating
  (accept '((or (member :none) net:printer)) :default :none
          :default-type '((member :none)))
produces the same problem -- the displayed default is None but the value is
a printer.  If I substitute another namespace type, e.g., net:host, for
net:printer, the same glitch occurs.  However, if I substitute integer, the
correct behavior results.  Any explanations and/or fixes would be greatly
appreciated.

Jeff Barnett