ObjectFileHandle.st
changeset 4127 eda0826e8b1d
parent 3849 95fe62798538
child 4265 2d1b30ce36f2
--- a/ObjectFileHandle.st	Wed Feb 15 22:09:28 2017 +0100
+++ b/ObjectFileHandle.st	Fri Feb 17 11:07:52 2017 +0100
@@ -328,7 +328,7 @@
 
     aStream nextPutAll:self class name; nextPutAll:'(handle=<'.
     sysHandle1 printOn:aStream.
-    aStream nextPutAll:' '.
+    aStream space.
     sysHandle2 printOn:aStream.
     aStream nextPutAll:'> path='''.
     pathName printOn:aStream.
@@ -340,11 +340,12 @@
     self method printOn:aStream.
     aStream nextPutAll:'> classes=<'.
     self classes printOn:aStream.
-    aStream nextPutAll:'>'.
+    aStream nextPut:$>.
 
-    aStream nextPutAll:')'.
+    aStream nextPut:$).
 
-    "Modified: 25.4.1996 / 09:44:08 / cg"
+    "Modified: / 25-04-1996 / 09:44:08 / cg"
+    "Modified: / 17-02-2017 / 10:35:25 / stefan"
 ! !
 
 !ObjectFileHandle methodsFor:'queries'!