locations/clothing.qsrc

@@ -1712,7 +1712,7 @@ if $args[0] = 'school_check':
 			'<font color="blue">This uniform complies with the school regulations on skirt length. Nobody in school would be offended by you wearing it.</font>'
 		end
 	elseif CloSkirtShortness = 5 and CloThinness < 5 and CloBra = 0:
-		if CloInhibit >= 35:
+		if CloInhibit >= 35 or CloTopCut = 4:
 			'<font color="red">This uniform slightly breaches the school uniform regulations and it is too risqué. Everybody in school apart from the gopniks will think that you''re a slut.</font>'
 		elseif CloStyle = 2:
 			'<font color="blue">This uniform slightly breaches the school regulations on skirt length and is of a style that only the Gopniks will approve of.</font>'	

locations/gschool_lessons.qsrc

@@ -91,7 +91,7 @@ if $ARGS[0] = 'uniform_check':
 			'<font color="blue">This uniform complies with the school regulations on skirt length.</font>'
 		end
 	elseif PCloSkirt = 5 and PCloThinness < 5 and PCloBra = 0:
-		if PCloInhibit >= 35:
+		if PCloInhibit >= 35 or PCloTopCut = 4:
 			grupvalue[1] -= 1
 			grupvalue[2] -= 1
 			grupvalue[3] -= 1