Fix typo.

diff --git a/src/runtime/ustring.scm b/src/runtime/ustring.scm
index 65fc820454bcc99ce20b6251375597618e41cc66..a15d4c39d7b573140d630d6357f31d6ee4a41fb3 100644 (file)
--- a/src/runtime/ustring.scm
+++ b/src/runtime/ustring.scm
@@ -567,13 +567,13 @@ USA.
        (else (error:not-a ->string-component? object caller))))
 
 (define (->string-component? object)
-  (cond (not object)
-       (bitless-char? object)
-       (string? object)
-       (symbol? object)
-       (pathname? object)
-       (number? object)
-       (uri? object)))
+  (or (not object)
+      (bitless-char? object)
+      (string? object)
+      (symbol? object)
+      (pathname? object)
+      (number? object)
+      (uri? object)))
 \f
 (define (mapper-values proc string strings)
   (cond ((null? strings)