--- a/Class.st	Mon Feb 24 17:31:21 2003 +0100
+++ b/Class.st	Mon Feb 24 18:01:32 2003 +0100
@@ -638,7 +638,7 @@
         classFilename notNil ifTrue:[
             stream := self sourceStream. 
             stream notNil ifTrue:[
-                stream position:comment.
+                stream position:comment - 1 + (PositionableStream zeroPosition).
                 string := String readFrom:stream onError:''.
                 stream close.
                 ^ string
@@ -3514,7 +3514,7 @@
         classFilename notNil ifTrue:[
             stream := self sourceStream. 
             stream notNil ifTrue:[
-                stream position:pos+1.
+                stream position:pos + (PositionableStream zeroPosition).
                 string := stream nextChunk.
                 stream close.
                 ^ string
@@ -4766,5 +4766,5 @@
 !Class class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic/Class.st,v 1.419 2002-11-04 14:51:17 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/Class.st,v 1.420 2003-02-24 17:01:32 cg Exp $'
 ! !