~ chicken-core (chicken-5) 19647f4ff4fece0291cf0dc39a00b31a3b5b386f

commit 19647f4ff4fece0291cf0dc39a00b31a3b5b386f
Author:     Jim Ursetto <zbigniewsz@gmail.com>
AuthorDate: Tue Feb 19 14:53:49 2013 -0600
Commit:     Christian Kellermann <ckeen@pestilenz.org>
CommitDate: Tue Feb 19 21:58:23 2013 +0100

    trivial change to describe-output not so trivial after all
    
    Signed-off-by: Christian Kellermann <ckeen@pestilenz.org>

diff --git a/csi.scm b/csi.scm
index f883d0ab..b2b9f243 100644
--- a/csi.scm
+++ b/csi.scm
@@ -661,7 +661,7 @@ EOF
 	    [(procedure? x)
 	     (let ([len (##sys#size x)])
 	       (descseq 
-		(sprintf "procedure with code pointer ~0xX" (##sys#peek-unsigned-integer x 0))
+		(sprintf "procedure with code pointer 0x~X" (##sys#peek-unsigned-integer x 0))
 		##sys#size ##sys#slot 1) ) ]
 	    [(port? x)
 	     (fprintf out