         inject( i_new_code => 'ms_logger.note(l_node,'''||l_bind_var||''','||l_bind_var||');'
         	   ,i_indent   => i_indent
         	   ,i_colour   => G_COLOUR_NOTE);
+			   
+      WHEN matched_with(l_keyword ,G_REGEX_WHEN_OTHERS_THEN) THEN	 	   
+	    --warn of error after WHEN OTHERS THEN	
+        inject( i_new_code => 'ms_logger.warn_error(l_node);'
+        	   ,i_indent   => i_indent
+        	   ,i_colour   => G_COLOUR_EXCEPTION_BLOCK);
  
       ELSE
 	    ms_logger.info(l_node,'No more blocks.');

  G_REGEX_END_CASE_EXPR CONSTANT VARCHAR2(50) := '\sEND\W'; 
  G_REGEX_END_IF        CONSTANT VARCHAR2(50) := '\sEND\s+?IF\s*?;';
   
  G_ANNOTATION          CONSTANT VARCHAR2(50) := '--';
 
  G_REGEX_OPEN         CONSTANT VARCHAR2(200) :=   G_REGEX_DECLARE      
                                            ||'|'||G_REGEX_BEGIN        

                              ,i_colour      => G_COLOUR_PKG_BEGIN
                              ,i_raise_error => TRUE                              );
 
  IF matched_with(l_keyword , G_REGEX_END_BEGIN) and i_node_type = 'new_pkg' THEN
    --Packages don't need to have BEGIN. 
	--and in this case we don't need the Initialisation node either, so remove it again.
	--(This will leave the colour there, but that won't be visible.)
	g_code := REPLACE(g_code, i_inject_node, ''); 
 
  ELSE
    
    AOP_pu_block(i_prog_unit_name  => i_prog_unit_name
                ,i_params          => l_inject_params
                ,i_indent          => i_indent);
 		
  END IF;
 
exception
