diff --git a/source/qb64.bas b/source/qb64.bas
index d417041ab..a81920d16 100644
--- a/source/qb64.bas
+++ b/source/qb64.bas
@@ -4513,6 +4513,7 @@ DO
             IF ideindentsubs THEN
                 controllevel = controllevel + 1
                 controltype(controllevel) = 32
+                controlref(controllevel) = linenumber
             END IF
 
             subfunc = RTRIM$(id.callname) 'SUB_..."