(define (foo a b c) 0)
(print foo) ;; prints #<procedure (f_218 a1 b2 c3)>, bad!


(set! foo (lambda (x y z) 1))
(print foo) ;; prints #<procedure (foo x4 y5 z6)>, good!

;; unsurprisingly, this only happens when compiles. csi tells us:

$ csi -s /tmp/klm.scm 
#<procedure (foo a b c)>
#<procedure (foo x y z)>