Dictionary and Date as keys

My problem - use Dates as Dictionary keys - shortly: d1 := Date today translateToUTC. d2 := Date today. d1 = d2. (true!) d := Dictionary new. d at: d1 put: 1. d at: d1. (ok) d at: d2. (bad - key not found) --- pf