dotLRN is a Learning Management System (LMS) based on OpenACS, implemented in Tcl. See also http://dotlrn.org