Class Object

error: str  

	| msg |

	msg <- str + Char newline asString + Context current backtrace.

	RunningEnvironment isGUIused 

		ifTrue: [self errorWindow: msg]

		ifFalse: [<119 msg>]. 

	Object halt