--- Coro/Coro.pm	2007/09/22 22:59:31	1.136
+++ Coro/Coro.pm	2007/09/26 19:26:48	1.137
@@ -157,6 +157,10 @@
       for @{(delete $self->{destroy_cb}) || []};
 }
 
+sub _do_trace {
+   $current->{_trace_cb}->();
+}
+
 # this coroutine is necessary because a coroutine
 # cannot destroy itself.
 my @destroy;