--- a/CompiledCodeObjectSection.st	Wed Dec 16 00:03:56 2015 +0000
+++ b/CompiledCodeObjectSection.st	Sat Dec 26 14:41:41 2015 +0100
@@ -139,6 +139,12 @@
     ^ type == SectionTypeText
 
     "Created: / 11-12-2015 / 10:35:00 / Jan Vrany <jan.vrany@fit.cvut.cz>"
+
+isSCLsSection
+    ^ type == SectionTypeSCLs
+
+    "Created: / 11-12-2015 / 10:35:00 / Jan Vrany <jan.vrany@fit.cvut.cz>"
+
 ! !
 
 !CompiledCodeObjectSection class methodsFor:'documentation'!