label-handling cases.

diff --git a/interpret.c b/interpret.c
index 36568197d13af9e92f6583181596e14463aa096c..784af46d5eaf11790214744588c9e168f485b0fd 100644 (file)
--- a/interpret.c
+++ b/interpret.c
@@ -303,7 +303,7 @@ static void rewrite(node *tree)
                break;
 
            case BLOCK:
-               np->car->car->syminf->target = np;
+               np->car->car->syminf->target = np->cdr;
                break;
 
            default: