Added createClass procedure.