1 files changed, 2 insertions, 1 deletions

diff --git a/MLKCons.m b/MLKCons.m
index 7ed6d1c..6b6cc8b 100644
--- a/MLKCons.m
+++ b/MLKCons.m
@@ -100,7 +100,8 @@
 -(NSString *)bareDescriptionForLisp
 {
   if (!_cdr)
-    return [NSString stringWithFormat:@"%@", [_car descriptionForLisp]];
+    return [NSString stringWithFormat:@"%@",
+                     (_car ? (id)[_car descriptionForLisp] : (id)@"()")];
   else if ([_cdr isKindOfClass:[MLKCons class]])
     return [NSString stringWithFormat:@"%@ %@",
                      (_car ? (id)[_car descriptionForLisp] : (id)@"()"),