diff --git a/src/lisp/gencgc.c b/src/lisp/gencgc.c
index a58b7c236f0b551e95cf5bc30e5fbe30dd428883..53881f08d2d35108451bf3105b9186a512298636 100644
--- a/src/lisp/gencgc.c
+++ b/src/lisp/gencgc.c
@@ -7722,7 +7722,7 @@ static void
 garbage_collect_generation(int generation, int raise)
 {
     unsigned long i;
-    unsigned long read_only_space_size, static_space_size;
+    unsigned long static_space_size;
 
 #if defined(i386) || defined(__x86_64)
     invalid_stack_start = (void *) control_stack;
@@ -7865,17 +7865,6 @@ garbage_collect_generation(int generation, int raise)
     printf("Done scavenging the scavenger hooks.\n");
 #endif
 
-#if 0
-    if (SymbolValue(SCAVENGE_READ_ONLY_SPACE) != NIL) {
-	read_only_space_size =
-	    (lispobj *) SymbolValue(READ_ONLY_SPACE_FREE_POINTER) -
-	    read_only_space;
-	fprintf(stderr, "Scavenge read only space: %ld bytes\n",
-		read_only_space_size * sizeof(lispobj));
-	scavenge(read_only_space, read_only_space_size);
-    }
-#endif
-
     static_space_size = (lispobj *) SymbolValue(STATIC_SPACE_FREE_POINTER)
 	- static_space;
     if (gencgc_verbose > 1)