OPEN-CLOSE prints unnecessary CR when closing a closed door

[eriktorbjorn]

<ROUTINE OPEN-CLOSE (OBJ STROPN STRCLS)
	 #DECL ((OBJ) OBJECT (STROPN STRCLS) STRING)
	 <COND (<VERB? OPEN>
		<COND (<FSET? .OBJ ,OPENBIT>
		       <TELL <RANDOM-ELEMENT ,DUMMY>>)
		      (T
		       <TELL .STROPN>
		       <FSET .OBJ ,OPENBIT>)>
		<CRLF>)
	       (<VERB? CLOSE>
		<COND (<FSET? .OBJ ,OPENBIT>
		       <TELL .STRCLS>
		       <FCLEAR .OBJ ,OPENBIT>
		       T)
		      (T <TELL <RANDOM-ELEMENT ,DUMMY> CR>)>
		<CRLF>)>>

Note the difference between <TELL <RANDOM-ELEMENT ,DUMMY>> in the "OPEN" case, and <TELL <RANDOM-ELEMENT ,DUMMY> CR> in the "CLOSE" case.