1 files changed, 3 insertions, 1 deletions
diff --git a/lib.c b/lib.c
index 4b1366e1..9aa3af95 100644
--- a/lib.c
+++ b/lib.c
@@ -453,7 +453,9 @@ val make_like(val list, val thatobj)
     case STR:
     case LIT:
     case LSTR:
-      return cat_str(list, nil);
+      if (is_chr(car(list)))
+        return cat_str(list, nil);
+      break;
     case NIL:
     case CONS:
     case LCONS: