--- 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:[