--- require.scm.dist	2012-05-08 13:27:42.000000000 +0200
+++ require.scm	2012-05-08 13:28:03.000000000 +0200
@@ -257,19 +257,19 @@
       (report:print '(SCHEME-FILE-SUFFIX) 'is (scheme-file-suffix))
       (let* ((i (+ -1 5)))
 	(cond ((eq? (car lfeatures) (car slib:features)))
-	      (else (report:print 'loaded 'SLIB:FEATURES ':) (display slib:tab)))
+	      (else (report:print 'loaded 'SLIB:FEATURES #\:) (display slib:tab)))
 	(for-each
 	 (lambda (x)
 	   (cond ((eq? (car lfeatures) x)
 		  (if (not (eq? (car lfeatures) (car slib:features))) (newline))
-		  (report:print sit siv 'SLIB:FEATURES ':)
+		  (report:print sit siv 'SLIB:FEATURES #\:)
 		  (display slib:tab) (set! i (+ -1 5)))
 		 ((zero? i) (newline) (display slib:tab) (set! i (+ -1 5)))
 		 ((not (= (+ -1 5) i)) (display #\space)))
 	   (write x) (set! i (+ -1 i)))
 	 slib:features))
       (newline)
-      (report:print sit siv '*CATALOG* ':)
+      (report:print sit siv '*CATALOG* #\:)
       (catalog:get #f)
       (cond ((pair? args)
 	     (for-each (lambda (x) (display slib:tab) (report:print x))