Avoid infinite loop in [Language=python] edge case

CHANGELOG.md

@@ -5,6 +5,11 @@ All notable changes to this project will be documented in this file.
 The format is based on [Keep a Changelog](https://keepachangelog.com/en/1.0.0/),
 and this project adheres to [Semantic Versioning](https://semver.org/spec/v2.0.0.html).
 
+## [4.1.2] - Unreleased
+
+### Fixed
+- #75: Avoid infinite loop when first class in alphabetical order has a `[ Language = python ]`
+
 ## [4.1.1] - 2025-11-24
 
 ### Fixed

cls/TestCoverage/Utils/LineByLineMonitor.cls

@@ -196,6 +196,9 @@ ClassMethod Start(Routine As %List, Metric As %List, Process As %List) As %Statu
 	Set pointer = 0
 	Set found = 0
 	While $ListNext(Routine,pointer,routine) {
+		if $piece(routine, ".", *) = "py" {
+			continue
+		}
 		Set rtnname = routine_".obj"
 		For {
 			Set data = ""