--- a/SnapShotImageMemory.st Wed Sep 05 18:59:20 2001 +0200
+++ b/SnapShotImageMemory.st Wed Sep 05 19:02:21 2001 +0200
@@ -1094,9 +1094,15 @@
sourceFilename
"return the sourcefilename if source is extern; nil otherwise"
+ |source|
+
self isMethodOrLazyMethod ifTrue:[
self sourcePosition notNil ifTrue:[
- ^ self at:(Method instVarOffsetOf:'source').
+ source := self at:(Method instVarOffsetOf:'source').
+ source isString ifTrue:[
+ source := memory printStringOfString:source.
+ ].
+ ^ source.
].
^ nil
].
@@ -1337,7 +1343,7 @@
|fileName aStream package source|
package := self package.
- source := self at:(Method instVarOffsetOf:'source').
+ source := self sourceFilename.
package notNil ifTrue:[
fileName := Smalltalk getSourceFileName:(package copyReplaceAll:$: with:$/) , '/' , source.
fileName notNil ifTrue:[