diff --git a/functional-tests/regex.scm b/functional-tests/regex.scm
index 9ad239f..be07229 100644
--- a/functional-tests/regex.scm
+++ b/functional-tests/regex.scm
@@ -72,12 +72,14 @@
 
   (define (star rx)
     (let ((head (gensym))
+          (body (gensym))
           (tail (gensym)))
-      (cons (split-instr head tail)
-            (label-code head
-                        (append-instr rx
-                                      (jmp-instr head)
-                                      (label-instr tail))))))
+      (label-code head
+                  (cons (split-instr body tail)
+                        (label-code body
+                                    (append-instr rx
+                                                  (jmp-instr head)
+                                                  (label-instr tail)))))))
 
   (define (plus rx)
     (let ((head (gensym))