Fix a bug in fallback impl. of dict-fold{-right}