Environment class>> current ^ CurrentEnvironment signal ifNil: [self default]
CurrentEnvironment signal nil
self default
Environment default
Smalltalk