~ chicken-core (chicken-5) af7cc16b0f5986c758958b3b5d73885ad2f4217c

commit af7cc16b0f5986c758958b3b5d73885ad2f4217c
Author:     felix <felix@call-with-current-continuation.org>
AuthorDate: Sun Dec 23 16:05:43 2012 +0100
Commit:     felix <felix@call-with-current-continuation.org>
CommitDate: Sun Dec 23 16:05:43 2012 +0100

    trivial change in describe-output

diff --git a/csi.scm b/csi.scm
index 1d5f64b7..e1f54acc 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 ~X" (##sys#peek-unsigned-integer x 0))
+		(sprintf "procedure with code pointer ~0xX" (##sys#peek-unsigned-integer x 0))
 		##sys#size ##sys#slot 1) ) ]
 	    [(port? x)
 	     (fprintf out