(use (srfi 69))
(define t (make-hash-table string=? string-hash 10))
(hash-table-set! t "foo" 1)

=>

Error: (string-hash) out of range
523688503
0
3

	Call history:

	<syntax>	  (hash-table-set! t "foo" 1)
	<eval>	  (hash-table-set! t "foo" 1)	<--

CHICKEN
(c)2008-2011 The Chicken Team
(c)2000-2007 Felix L. Winkelmann
Version 4.7.4 (rev a471d95)
openbsd-unix-gnu-x86 [ manyargs dload ptables ]
compiled 2012-01-13 on necronomicon.my.domain (OpenBSD)