Smalltalk isSmalltalk printNl!

Smalltalk addSubspace: #ONE!

ONE addSubspace: #TWO!

Namespace current: ONE.TWO.
Object subclass: #Dummy
	instanceVariableNames: 'a b c'
	classVariableNames: 'd e'
	poolDictionaries: ''
	category: 'test'.
Namespace current: Smalltalk.
!

PackageLoader fileInPackage: #Compiler!

FileStream fileIn: 'test-st-in-st-2.st'!