> (begin
>   (dictionary-put! h 1 'a)
>   (dictionary-put! h 2 'b)
>   (collection-fold-keys-increasing h
>     (lambda (k ls)
>       (values #t (cons k ls)))
>     '()))
>
> 	Scott

I meant to write use hashtable-put! in the second example.

--