diff --git a/src/ikarus.boot b/src/ikarus.boot index c19ea0b..97a429a 100644 Binary files a/src/ikarus.boot and b/src/ikarus.boot differ diff --git a/src/ikarus.collect.ss b/src/ikarus.collect.ss index 0a1354d..10a35b4 100644 --- a/src/ikarus.collect.ss +++ b/src/ikarus.collect.ss @@ -41,7 +41,7 @@ (define (collect-key) (or ($collect-key) (begin - ($collect-key (string #\k)) + ($collect-key (gensym)) (collect-key)))) )