--- gforth/engine/profile.c	2001/03/01 14:27:22	1.3
+++ gforth/engine/profile.c	2001/03/04 13:39:35	1.4
@@ -144,7 +144,7 @@ void print_block(FILE *file, block_count
   size_t i,j,k;
 
   for (i=2; i<12; i++)
-    for (j=0; i+j<b->ninsts; j++) {
+    for (j=0; i+j<=b->ninsts; j++) {
       fprintf(file,"%14lld\t",b->count);
       for (k=j; k<i+j; k++)
 	fprintf(file, "%s ", b->insts[k]);