diff --git a/compiler/libpc300/sc3.c b/compiler/libpc300/sc3.c
index ddaace8e..bcd29d59 100755
--- a/compiler/libpc300/sc3.c
+++ b/compiler/libpc300/sc3.c
@@ -1225,7 +1225,7 @@ static int hier2(value *lval)
     return FALSE;
   case tLABEL:                  /* tagname override */
     tag=pc_addtag(st);
-    forceuntag=(*st == '_');    /* forced to be untagged with _: */
+    forceuntag=(*st == '_' && !tag);    /* forced to be untagged with _: */
     lvalue=hier2(lval);
     lval->tag=tag;
     lval->forceuntag=forceuntag;