--- a/ClassCategoryReader.st	Tue Feb 25 11:17:54 2003 +0100
+++ b/ClassCategoryReader.st	Tue Feb 25 12:48:02 2003 +0100
@@ -292,7 +292,7 @@
         done := aStream atEnd.
         done ifFalse:[
             canMakeSourceRef ifTrue:[
-                pos := aStream position
+                pos := aStream position1Based
             ].
             aString := aStream nextChunk.
             aStream skipSeparators.
@@ -337,7 +337,7 @@
                                     SourceMode == #sourceReference ifTrue:[
                                         s := sourceFile asFilename appendingWriteStream.
                                         s setToEnd.     
-                                        pos := s position.
+                                        pos := s position1Based.
                                         s nextChunkPut:src.
                                         s close.
                                     ].
@@ -434,6 +434,7 @@
 !ClassCategoryReader class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic/ClassCategoryReader.st,v 1.49 2001-12-12 15:25:27 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/ClassCategoryReader.st,v 1.50 2003-02-25 11:47:55 cg Exp $'
 ! !
+
 ClassCategoryReader initialize!