--- a/Method.st	Mon May 13 11:30:46 2002 +0200
+++ b/Method.st	Mon May 13 11:31:18 2002 +0200
@@ -560,12 +560,7 @@
 
         aStream := self sourceStream.
         aStream notNil ifTrue:[
-            Stream positionErrorSignal handle:[:ex |
-                ^ nil
-            ] do:[
-                aStream position:sourcePosition abs.
-            ].
-            junk := aStream nextChunk.
+            junk := self sourceChunkFromStream:aStream.
 
             OperatingSystem isMSDOSlike ifTrue:[
                 "
@@ -600,6 +595,15 @@
     sourcePosition := nil
 !
 
+sourceChunkFromStream:aStream
+    Stream positionErrorSignal handle:[:ex |
+        ^ nil
+    ] do:[
+        aStream position:sourcePosition abs.
+    ].
+    ^ aStream nextChunk.
+!
+
 sourceFilename
     "return the sourcefilename if source is extern; nil otherwise"
 
@@ -2814,6 +2818,6 @@
 !Method class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic/Method.st,v 1.241 2002-02-26 11:40:42 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/Method.st,v 1.242 2002-05-13 09:31:18 cg Exp $'
 ! !
 Method initialize!