Removed ignorable declaration for *default-hs* in let-binding in consume-work-on-work-queue-when-there, now that suitable special declaration is present.