--- gforth/engine/main.c	2009/06/28 18:27:11	1.222
+++ gforth/engine/main.c	2009/06/28 18:36:27	1.223
@@ -1156,6 +1156,8 @@ static void reserve_code_space(UCell siz
   if (code_area+code_area_size < code_here+size) {
     struct code_block_list *p;
     append_jump();
+    debugp(stderr,"Did not use %ld bytes in code block\n",
+           (long)(code_area+code_area_size-code_here));
     flush_to_here();
     if (*next_code_blockp == NULL) {
       code_here = start_flush = code_area = gforth_alloc(code_area_size);