'From Squeak3.9alpha of 4 July 2005 [latest update: #7049] on 23 July 2006 at 6:39:54 pm'! !BlockContext methodsFor: 'printing' stamp: 'md 7/23/2006 18:39'! printOn: aStream | blockString truncatedBlockString code | home == nil ifTrue: [^aStream nextPutAll: 'a BlockContext with home=nil']. aStream nextPutAll: '[] in '. super printOn: aStream. aStream nextPutAll: ' '. code := ''. "self decompile". blockString := code ifNil: [''] ifNotNil: [(code printString replaceAll: Character cr with: Character space) replaceAll: Character tab with: Character space]. truncatedBlockString := blockString truncateWithElipsisTo: 80. truncatedBlockString size < blockString size ifTrue: [truncatedBlockString := truncatedBlockString, ']}']. aStream nextPutAll: truncatedBlockString. ! !