Fixed missing callback assignment

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

source/HierarchicalProfiler0.Mod

@@ -33,6 +33,7 @@ BEGIN {EXCLUSIVE}
 	ASSERT(state = HandlerNotInstalled);
 	Machine.InstallEventHandler(HandleTimer);
 	state := HandlerInstalled;
+	callback := proc;
 END Enable;
 
 (** Stop profiling. The profile data is not discarded. It can be retrieved using the procedure 'GetProfile' *)