Steve,
The book supplied the following .pgm to test the class, that is where I am getting the error. "Class Definition "timetrans" is not found".

SET CLASSLIB TO timesheet

ox = CreateObject("TimeTrans")

ox.Add()
ox.cEmployee = "MB"
ox.dDate = {^1998-08-01}
ox.cClient = "SAMS"
ox.cService = "PROGRAM"
ox.cDescription = "Work on the book"
ox.nHours = 8.25
ox.Save()

ox.Add()
ox.cEmployee = "MB"
ox.dDate = {^1998-08-02}
ox.cClient = "SAMS"
ox.cService = "USERDOC"
ox.cDescription = "Write on the book"
ox.nHours = 8
ox.Save()