asf - Revision 1917111: /tcl/websh/trunk/examples/shop