$ csc repro2.scm 
$ ./repro2 
before
within

Error: boom

	Call history:

	repro2.scm:1: dynamic-wind	  
	repro2.scm:3: print*	  
	repro2.scm:5: print*	  
	repro2.scm:6: error	  	<--