diff --git a/racket/src/racket/src/salloc.c b/racket/src/racket/src/salloc.c
index 025d54b05e..3b8df7068f 100644
--- a/racket/src/racket/src/salloc.c
+++ b/racket/src/racket/src/salloc.c
@@ -2922,7 +2922,7 @@ intptr_t scheme_count_memory(Scheme_Object *root, Scheme_Hash_Table *ht)
       s = sizeof(Scheme_Lambda);
       s += data->closure_size * sizeof(mzshort);
 #if FORCE_KNOWN_SUBPARTS
-      e = COUNT(data->code);
+      e = COUNT(data->body);
 #endif
     }
     break;
@@ -2958,9 +2958,9 @@ intptr_t scheme_count_memory(Scheme_Object *root, Scheme_Hash_Table *ht)
     break;
   case scheme_ir_let_header_type:
     {
-      Scheme_Let_Header *let = (Scheme_Let_Header *)root;
+      Scheme_IR_Let_Header *let = (Scheme_IR_Let_Header *)root;
 
-      s = sizeof(Scheme_Let_Header);
+      s = sizeof(Scheme_IR_Let_Header);
 #if FORCE_KNOWN_SUBPARTS
       e = COUNT(let->body);
 #endif
@@ -3085,8 +3085,6 @@ intptr_t scheme_count_memory(Scheme_Object *root, Scheme_Hash_Table *ht)
   case scheme_undefined_type:
     /* Only one */
     break;
-  case scheme_syntax_compiler_type:
-    break;
   case scheme_macro_type:
   case scheme_set_macro_type:
     s = sizeof(Scheme_Small_Object);