ponk% ./chicken-test-0.scm
ok

Error: (/) division by zero

	Call history:

	<syntax>	  (define (fuh) (/ 3 0))
	<syntax>	  (##core#set! fuh (##core#lambda () (/ 3 0)))
	<syntax>	  (##core#lambda () (/ 3 0))
	<syntax>	  [fuh] (##core#begin (/ 3 0))
	<syntax>	  [fuh] (/ 3 0)
	<syntax>	  (display "ok\n")
	<eval>	  (display "ok\n")
	<syntax>	  (fuh)
	<eval>	  (fuh)
	<eval>	  [fuh] (/ 3 0)	<--
ponk% 
ponk% 
ponk% 
ponk% ./sash-test-0.scm
ok
*error*
  #<condition

    &assertion (&violation &serious)
    &who /
    &message undefined for 0
    &irritants (3 0)
  >

stack trace:
  [1] fuh
    src: (/ 3 0)
    "./sash-test-0.scm":7
  [2] load
ponk%