* lib.c (make_like): Fix regression introduced in 102.

A one element list being converted to a string
treated as an empty list, leading to empty string.

1 files changed, 1 insertions, 1 deletions

diff --git a/lib.c b/lib.c
index 7c857423..e971ef1f 100644
--- a/lib.c
+++ b/lib.c
@@ -505,7 +505,7 @@ val make_like(val list, val thatobj)
     case LIT:
     case LSTR:
       if (!opt_compat || opt_compat > 101) {
-        if (!cdr(list))
+        if (!list)
           return null_string;
       }
       if (is_chr(car(list)))