From b2d67a552deaf561484f1b0ad301cb4803283a23 Mon Sep 17 00:00:00 2001
From: Abdulaziz Ghuloum <aghuloum@cs.indiana.edu>
Date: Sun, 30 Dec 2007 18:37:37 -0500
Subject: [PATCH] number->string now returns a fresh string for 0.

---
 scheme/ikarus.fixnums.ss | 2 +-
 scheme/last-revision     | 2 +-
 2 files changed, 2 insertions(+), 2 deletions(-)

diff --git a/scheme/ikarus.fixnums.ss b/scheme/ikarus.fixnums.ss
index 8206d7c..2271e4e 100644
--- a/scheme/ikarus.fixnums.ss
+++ b/scheme/ikarus.fixnums.ss
@@ -386,7 +386,7 @@
     (define $fixnum->string
       (lambda (x radix)
         (cond
-          [($fxzero? x) "0"]
+          [($fxzero? x) (string #\0)]
           [($fx> x 0)
            (call-with-values
              (lambda () (f x 0 0 radix))
diff --git a/scheme/last-revision b/scheme/last-revision
index 4ab81d9..70bdf7b 100644
--- a/scheme/last-revision
+++ b/scheme/last-revision
@@ -1 +1 @@
-1296
+1297