1 files changed, 1 insertions, 1 deletions
diff --git a/lib.c b/lib.c
index e119ed82..3d5cbf19 100644
--- a/lib.c
+++ b/lib.c
@@ -1006,7 +1006,7 @@ obj_t *chr(wchar_t ch)
 
 obj_t *chrp(obj_t *chr)
 {
-  return (is_chr(num)) ? t : nil;
+  return (is_chr(chr)) ? t : nil;
 }
 
 wchar_t c_chr(obj_t *chr)