$ git log -p c08efe2b8d^..21a4cae970 compiler.scm

commit 21a4cae9701bf34e87741ac360e4f160da79a739
Author: felix <felix@call-with-current-continuation.org>
Date:   Tue Jan 12 13:21:47 2010 +0100

    handle numeric version in upgrade message

diff --git a/compiler.scm b/compiler.scm
index f9f31cd..8dd0eff 100644
--- a/compiler.scm
+++ b/compiler.scm
@@ -1487,7 +1487,7 @@
 	 [f-id (gensym 'stub)]
 	 [bufvar (gensym)] 
 	 [rsize (estimate-foreign-result-size rtype)] )
-    (when sname (set-real-name! f-id (string->symbol sname)))
+    (set-real-name! f-id #t)
     (set! foreign-lambda-stubs 
       (cons (make-foreign-stub f-id rtype sname argtypes argnames body cps callback)
 	    foreign-lambda-stubs) )

commit c08efe2b8d2dcb339d4d8f9f0bc609bfea13b79c
Author: felix <felix@call-with-current-continuation.org>
Date:   Tue Jan 12 09:42:44 2010 +0100

    fix for wrong entry in real-name hash-table

diff --git a/compiler.scm b/compiler.scm
index 8dd0eff..f9f31cd 100644
--- a/compiler.scm
+++ b/compiler.scm
@@ -1487,7 +1487,7 @@
 	 [f-id (gensym 'stub)]
 	 [bufvar (gensym)] 
 	 [rsize (estimate-foreign-result-size rtype)] )
-    (set-real-name! f-id #t)
+    (when sname (set-real-name! f-id (string->symbol sname)))
     (set! foreign-lambda-stubs 
       (cons (make-foreign-stub f-id rtype sname argtypes argnames body cps callback)
 	    foreign-lambda-stubs) )
