fix image list coercion

unbreaks place-image in the case that it gets bitmaps directly

Also, bring test-image.rkt down below 102 columns