--- a/CompiledCodeObjectSection.st	Mon Jan 11 21:45:14 2016 +0000
+++ b/CompiledCodeObjectSection.st	Mon Jan 11 21:46:49 2016 +0000
@@ -103,16 +103,16 @@
     aStream nextPutAll: name.
     aStream space.
     aStream nextPutAll: '0x'.
-    addr printStringRadix: 16 size: ExternalAddress pointerSize fill: $0.
+    addr printOn: aStream base: 16 size: ExternalAddress pointerSize fill: $0.
     aStream nextPutAll: ' - 0x'.
-    (addr + size) printStringRadix: 16 size: ExternalAddress pointerSize fill: $0.
+    (addr + size) printOn: aStream base: 16 size: ExternalAddress pointerSize fill: $0.
     aStream nextPutAll: ' (size='.
     size printOn: aStream.
     aStream nextPutAll: ' type='.
     type printOn: aStream.    
     aStream nextPutAll: ')'.
 
-    "Modified: / 07-12-2015 / 21:54:57 / Jan Vrany <jan.vrany@fit.cvut.cz>"
+    "Modified: / 11-01-2016 / 21:42:38 / Jan Vrany <jan.vrany@fit.cvut.cz>"
 ! !
 
 !CompiledCodeObjectSection methodsFor:'testing'!
@@ -135,16 +135,17 @@
     "Created: / 11-12-2015 / 10:35:12 / Jan Vrany <jan.vrany@fit.cvut.cz>"
 !
 
+isSCLsSection
+    ^ type == SectionTypeSCLs
+
+    "Created: / 11-01-2016 / 21:14:24 / Jan Vrany <jan.vrany@fit.cvut.cz>"
+!
+
 isTextSection
     ^ 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>"
-
+    "Modified (format): / 11-01-2016 / 21:14:30 / Jan Vrany <jan.vrany@fit.cvut.cz>"
 ! !
 
 !CompiledCodeObjectSection class methodsFor:'documentation'!