* Globally visible procedures now have attached names:

Ikarus Scheme (Build 2007-09-04)
Copyright (c) 2006-2007 Abdulaziz Ghuloum

> car
#<procedure car>
> (car 1 2)
Error in apply: incorrect number of argument (2) to #<procedure car>.
> ^D

src/ikarus.writer.ss

@@ -505,7 +505,14 @@
          (write-character x p m)
          i]
         [(procedure? x)
-         (write-char* "#<procedure>" p)
+         (cond
+           [(let ([name (procedure-annotation x)])
+              (and (symbol? name) name)) =>
+            (lambda (name) 
+              (write-char* "#<procedure " p) 
+              (write-char* (symbol->string name) p)
+              (write-char* ">" p))]
+           [else (write-char* "#<procedure>" p)])
          i]
         [(output-port? x)
          (write-char* "#<output-port " p)