diff --git a/scheme/ikarus.strings.ss b/scheme/ikarus.strings.ss
index 0a3a1a5..aff92d6 100644
--- a/scheme/ikarus.strings.ss
+++ b/scheme/ikarus.strings.ss
@@ -206,7 +206,7 @@
                               (die who "not a string" 
                                 (car s*))])))
                      (die who "not a string" s2)))]))
-          (die who "not a string0" s1))))
+          (die who "not a string" s1))))
   
   (define ($string<? s1 s2)
     (let ([n1 ($string-length s1)]
diff --git a/scheme/last-revision b/scheme/last-revision
index b3892d9..357a340 100644
--- a/scheme/last-revision
+++ b/scheme/last-revision
@@ -1 +1 @@
-1680
+1681
diff --git a/scheme/psyntax.expander.ss b/scheme/psyntax.expander.ss
index cdf50fd..81fc2ce 100644
--- a/scheme/psyntax.expander.ss
+++ b/scheme/psyntax.expander.ss
@@ -265,11 +265,11 @@
         (when (annotation? expr) 
           (let ((src (annotation-source expr)))
             (when (pair? src)
-              (display " (char " p)
+              (display " [char " p)
               (display (cdr src) p)
               (display " of " p)
               (display (car src) p)
-              (display ")" p)))))
+              (display "]" p)))))
       (display ">" p)))
 
   ;;; First, let's look at identifiers, since they're the real