Calling SAID-CRUMBS? from EBAG doesn't work as intended

[eriktorbjorn]

EBAG-F has this, which is apparently there to check if you refer to the empty (or soggy) bag as "crumbs":

<ROUTINE EBAG-F ()
	 <COND (<SAID-CRUMBS?>
		<TELL "The crumbs are all gone." CR>
		<RFATAL>)

But it doesn't work. Probably because the first thing SAID-CRUMBS? does is to check if you're carrying the full bag of crumbs (BAG):

<ROUTINE SAID-CRUMBS? ()
	 <COND (<NOT <IN? ,BAG ,PLAYER>>
		<RFALSE>)