--- a/r6f/cola.rkt Sun Oct 07 22:29:10 2012 -0400 +++ b/r6f/cola.rkt Fri Feb 26 04:04:39 2016 -0500 @@ -26,7 +26,7 @@ (let ((vt (vtable-of o))) (if (and (eq? name 'lookup) (eq? vt vtable-vt)) - (vtable-lookup o name) + (vtable-lookup vt name) (send vt 'lookup name)))) (define (send o name . args)