Student class extend [
    newStudent [
        | student |
        <category: 'instance creation'>
        student := super newStudent.
        student init.
        ^student.
    ]
]