How to allow methods to reference each other using lexical scoping?

(define (mk-obj args)
	(let ([self 'dummy])
		(begin
			(set! self
				(lambda (m)
					(case (m)
						[(first) (lambda (x) (self 'second x))]
						[(second) (lambda (x) x)])))
			self)))