patch -- stacks are fully traversed now

git-svn-id: https://svn.inf.ethz.ch/svn/lecturers/a2/trunk@6726 8c9fc860-2736-0410-a75d-ab315db34111

source/Win32.Objects.Mod

@@ -199,8 +199,8 @@ TYPE
 								SYSTEM.GET(adr, p); (* load pointer *)
 								Heaps.Mark(p);
 							END;
-							SYSTEM.GET(bp + SIZEOF(ADDRESS), bp);
 						END;
+						SYSTEM.GET(bp + SIZEOF(ADDRESS), bp);
 					ELSE (* classical stack frame *)
 						bp := n; 
 					END;