'From etoys3.0 of 24 February 2008 [latest update: #2149] on 17 September 2008 at 3:53:07 pm'!
"Change Set:		condenseSources2-yo
Date:			17 September 2008
Author:			Yoshiki Ohshima

Fix the added comment so that it doesn't find stamp: in the comment.

It is unlikely to happen, but just really taking a precaution here."!


!ClassDescription methodsFor: 'fileIn/Out' stamp: 'yo 9/17/2008 15:51'!
putClassCommentToCondensedChangesFile: aFileStream
	"Called when condensing changes.  If the receiver has a class comment, and if that class comment does not reside in the .sources file, then write it to the given filestream, with the resulting RemoteString being reachable from the source file #2.  Note that any existing backpointer into the .sources file is lost by this process -- a situation that maybe should be fixed someday."

	| header aStamp aCommentRemoteStr |
	self isMeta ifTrue: [^ self].  "bulletproofing only"
	((aCommentRemoteStr _ self organization commentRemoteStr) isNil or:
		[aCommentRemoteStr sourceFileNumber == 1]) ifTrue: [^ self].

	aFileStream cr; nextPut: $!!.
	header _ String streamContents: [:strm | strm nextPutAll: self name;
		nextPutAll: ' commentStamp: '.
		(aStamp _ self organization commentStamp ifNil: ['<historical>']) storeOn: strm.
		strm nextPutAll: ' prior: 0'].
	aFileStream nextChunkPut: header.
	aFileStream cr.
	self organization classComment: (RemoteString newString: self organization classComment onFileNumber: 2 toFile: aFileStream) stamp: aStamp
"--------------------------------------------------------------------------------------------------------------------------------------
Here is a comment to protect the next method in the .sources file doesn't get confused with the ending stamp : keyword.
---------------------------------------------------------------------------------------------------------------------------------------"! !