diff --git a/src/c/dpp.c b/src/c/dpp.c
index 4a39657..a7f2731 100644
--- a/src/c/dpp.c
+++ b/src/c/dpp.c
@@ -861,7 +861,7 @@ main(int argc, char **argv)
 {
 	char outfile[BUFSIZ];
 #ifdef _MSC_VER
-	char *p
+	char *p;
 #endif
 	if (argc < 2 || !strcmp(argv[1],"-")) {
 	  in = stdin;
diff --git a/src/c/instance.d b/src/c/instance.d
index 491aa38..dce6125 100644
--- a/src/c/instance.d
+++ b/src/c/instance.d
@@ -355,7 +355,7 @@ cl_class_of(cl_object x)
 		ecl_internal_error("not a lisp data object");
 	}
 	if (0) {
-		cl_object y = old_cl_class_of(x);
+		cl_object y = cl_class_of(x);
 		cl_object output;
 		x = SYM_VAL(@'clos::*builtin-classes*');
 		/* We have to be careful because *builtin-classes* might be empty! */

