# HG changeset patch
# User Claus Gittinger <cg@exept.de>
# Date 999709565 -7200
# Node ID d549a69ec127318de6f142b25dab62f04ff882cd
# Parent  7e96892bc9dfdd20e8b29c9c84537076018b0f1b
*** empty log message ***

diff -r 7e96892bc9df -r d549a69ec127 SnapShotImageMemory.st
--- a/SnapShotImageMemory.st	Wed Sep 05 19:02:21 2001 +0200
+++ b/SnapShotImageMemory.st	Wed Sep 05 19:06:05 2001 +0200
@@ -1094,14 +1094,16 @@
 sourceFilename
     "return the sourcefilename if source is extern; nil otherwise"
 
-    |source|
+    |sourcePtr sourceRef source|
 
     self isMethodOrLazyMethod ifTrue:[
         self sourcePosition notNil ifTrue:[
-            source := self at:(Method instVarOffsetOf:'source').
-            source isString ifTrue:[
-                source := memory printStringOfString:source.
+            sourcePtr := self at:(Method instVarOffsetOf:'source').
+            sourceRef := memory fetchObjectAt:sourcePtr.
+            sourceRef isString ifFalse:[
+                self halt.
             ].
+            source := memory printStringOfString:sourceRef.
             ^ source.
         ].
         ^ nil