diff --git a/compiler/symbase.pas b/compiler/symbase.pas
index bb984dc350..b1899ba2a5 100644
--- a/compiler/symbase.pas
+++ b/compiler/symbase.pas
@@ -133,6 +133,7 @@ interface
          procedure push(st:TSymtable); virtual;
          procedure pop(st:TSymtable); virtual;
          function  top:TSymtable;
+         function getcopyuntil(finalst: TSymtable): TSymtablestack;
        end;
 
 
@@ -430,6 +431,30 @@ implementation
       end;
 
 
+  function addstitemreverse(st: TSymtablestack; finalst: tsymtable; curitem: psymtablestackitem): boolean;
+    begin
+      if not assigned(curitem) then
+        begin
+          result:=true;
+          exit;
+        end;
+      if addstitemreverse(st,finalst,curitem^.next) then
+        begin
+          st.push(curitem^.symtable);
+          result:=curitem^.symtable<>finalst
+        end
+      else
+        result:=false
+    end;
+
+
+  function TSymtablestack.getcopyuntil(finalst: TSymtable): TSymtablestack;
+    begin
+      result:=TSymtablestack.create;
+      addstitemreverse(result,finalst,stack);
+    end;
+
+
 {$ifdef MEMDEBUG}
 initialization
   memrealnames:=TMemDebug.create('Realnames');