"PUT object IN BOX" does not check if the box is open at Bottom of Scaffold

[eriktorbjorn]

>PUT COIN IN BOX
The small coin would probably fall right out.

This is handled by MBOX-F:

	 <COND (<THIS-PRSI?>
		<COND (<VERB? PUT THROW>
		       <TELL CTHEO " would probably fall right out." CR>
		       <RTRUE>)>
		<RFALSE>)

Compare this to how BOX-F handles it:

	 <COND (<THIS-PRSI?>
		<COND (<VERB? PUT>
		       <COND (<NOT <IS? ,PRSI ,OPENED>>
			      <ITS-CLOSED ,PRSI>
			      <RTRUE>)
			     (<BAG-IN-BOX?>
			      <RTRUE>)>
		       <RFALSE>)
		      (<AND <VERB? PUT-ON>
			    <BAG-IN-BOX?>>
		       <RTRUE>)>
		<RFALSE>)

It's a bit more complicated because you actualy can put things inside the box. My point is, it should still check if MBOX is open and use <ITS-CLOSED ,PRSI> if it's not.