Broken scripts

On my system Count and AppendCount seemed broken. Although they set my_content to the text of my_ document, they then count my_document rather than my_content, and for reasons I do not understand this introduces errors.

Anyway, I changed AppendCount as follows and it now works perfectly, for me.


tell application "WriteRoom"
set my_document to the document of window 1
set my_content to the text of my_document
set my_chars to (count characters of text of my_content) as text
set my_words to (count words of my_content)
set my_paragraphs to (count paragraphs of text of my_content) as text
set my_response to my_chars & " Characters, " & my_words & " Words, " & my_paragraphs & " Paragraphs"
--display alert my_response
set the text of my_document to my_content & return & return & my_response
end tell


Thanks

Jeremy