diff --git a/src/c/character.d b/src/c/character.d
index ff1c65cb3..ff46c3fe4 100644
--- a/src/c/character.d
+++ b/src/c/character.d
@@ -61,7 +61,7 @@ ecl_standard_char_p(cl_index code)
 bool
 ecl_base_char_p(cl_index c)
 {
-	return c < 255;
+	return c <= 255;
 }
 
 cl_object
diff --git a/src/c/typespec.d b/src/c/typespec.d
index f74343744..bceb37729 100644
--- a/src/c/typespec.d
+++ b/src/c/typespec.d
@@ -317,9 +317,9 @@ cl_type_of(cl_object x)
 #endif
 	case t_character: {
 		int i = CHAR_CODE(x);
-		if (ecl_standard_char_p(x)) {
+		if (ecl_standard_char_p(i)) {
 			t = @'standard-char';
-		} else if (ecl_base_char_p(x)) {
+		} else if (ecl_base_char_p(i)) {
 			t = @'base-char';
 		} else {
 			t = @'character';