bug in net.xml.parser::next-token

i believe there is a bug in pxml2.cl in this (listing starts at line 
590):

(loop
	(setq ch (get-next-char tokenbuf))
	(when *debug-xml* (format t "ch: ~s code: ~x state:~s 
entity-names:~s~%"
				  ch (char-code ch) state (iostruct-entity-names tokenbuf)))
	(if* (null ch)
	   then (return) ; eof -- exit loop
		)


i don't have a copy of acl to test this reasoning on, but when 
*debug-xml* is true the call to (char-code ch) will signal an error at 
the end of the input (when get-next-char returns NIL), at least thats 
what happens in openmcl.

the fix i applied was just to swap the IF* form and the WHEN form.

--
Marco
Ring the bells that still can ring.
Forget the perfect offering.
There is a crack in everything.
That's how the light gets in.
	-Leonard Cohen