|  | @@ -1096,7 +1096,7 @@ let load_module ctx m p =
 | 
	
		
			
				|  |  |  				raise (Forbid_package (inf,p::pl,pf))
 | 
	
		
			
				|  |  |  	) in
 | 
	
		
			
				|  |  |  	add_dependency ctx.m.curmod m2;
 | 
	
		
			
				|  |  | -	if ctx.pass = PTypeField then flush_pass ctx PBuildClass "load_module";
 | 
	
		
			
				|  |  | +	if ctx.pass = PTypeField then flush_pass ctx PConnectField "load_module";
 | 
	
		
			
				|  |  |  	m2
 | 
	
		
			
				|  |  |  
 | 
	
		
			
				|  |  |  (* let load_module ctx m p =
 |