!String methodsFor: '*bogusext-testing' stamp: 'cwp 8/12/2004 21:01'!
isBogus
	^ self = 'bogus'! !

!BogusA class methodsFor: '*bogusext-testing' stamp: 'cwp 4/1/2006 22:50'!
isBogus
	^ true! !

!BogusA methodsFor: '*bogusext' stamp: ''!
foo
	^ self! !

!BogusA methodsFor: '*bogusext-testing' stamp: ''!
isFake
	^ true! !

!BogusE methodsFor: '*bogusext-testing' stamp: ''!
isString
	^ false! !

!BogusB methodsFor: '*bogusext' stamp: ''!
foreign
	^ firstInstanceVariableB! !

!BogusB methodsFor: '*bogusext' stamp: ''!
foreign2
	^ FirstClassVariableB! !