--- a/ObjectFileHandle.st Wed Jun 26 20:02:58 2019 +0200
+++ b/ObjectFileHandle.st Fri Jun 28 09:06:06 2019 +0200
@@ -1,3 +1,5 @@
+"{ Encoding: utf8 }"
+
"
COPYRIGHT (c) 1995 by Claus Gittinger
All Rights Reserved
@@ -326,7 +328,7 @@
printOn:aStream
"append a printed representation of the receiver to aStream"
- aStream nextPutAll:self class name; nextPutAll:'(handle=<'.
+ aStream nextPutAll:self className; nextPutAll:'(handle=<'.
sysHandle1 printOn:aStream.
aStream space.
sysHandle2 printOn:aStream.
@@ -346,6 +348,7 @@
"Modified: / 25-04-1996 / 09:44:08 / cg"
"Modified: / 17-02-2017 / 10:35:25 / stefan"
+ "Modified: / 28-06-2019 / 09:05:21 / Claus Gittinger"
! !
!ObjectFileHandle methodsFor:'queries'!