fix bug resultig in constant false
fix bug resultig in constant false

Ignore-this: 5baf52ae93fe760bcb7b0bd6a382c06c

darcs-hash:20090909114043-9241b-ad11ae54296d742ae25c12e1fe53e0f8475a3cc1.gz

tmcdonell/hfx,tmcdonell/hfx,tmcdonell/hfx