minor addition (display CRCs with module state)

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

source/SystemTools.Mod

@@ -220,7 +220,9 @@ BEGIN
 	module := Modules.ThisModule(name, res, msg);
 	context.result := res;
 	IF (res = Modules.Ok) THEN
-		context.out.String(name); context.out.String(" state: "); context.out.Ln;
+		context.out.String(name); 
+		context.out.String(" crc "); context.out.Hex(module.crc,-8); 
+		context.out.String(" state: "); context.out.Ln;
 		Reflection.ModuleState(context.out, module);
 	ELSE
 		context.error.String("Could not load module "); context.error.String(name);