--- a/CCReader.st	Wed Oct 15 14:30:19 1997 +0200
+++ b/CCReader.st	Wed Oct 15 14:30:30 1997 +0200
@@ -10,6 +10,8 @@
  hereby transferred.
 "
 
+'From Smalltalk/X, Version:3.2.1 on 14-oct-1997 at 11:17:15 pm'                 !
+
 Object subclass:#ClassCategoryReader
 	instanceVariableNames:'myClass myCategory privacy ignore primSpec'
 	classVariableNames:'KeepSource SourceMode SkipUnchangedMethods'
@@ -186,7 +188,7 @@
      errors and notifications are passed to requestor.
      If passChunk is true, chunks are given to the requestor,
      via a #source: message, allowing it to open a view showing any
-     arronous source code.
+     erronous source code.
      If oneChunkOnly is true, the fileIn is finished after the first chunk."
 
     |aString done method compiler canMakeSourceRef sourceFile pos nm src s|
@@ -223,9 +225,9 @@
             "/
             "/ only do it, if the sourceFiles name
             "/ ends with '.st'
-            "/ this prevents methods to reference the changes file.
+            "/ this prevents methods from referencing the changes file.
             "/
-            (sourceFile endsWith:'.st') ifTrue:[
+            (sourceFile asFilename hasSuffix:'st') ifTrue:[
                 canMakeSourceRef := true.
 
                 SourceMode == #absReference ifFalse:[
@@ -247,7 +249,7 @@
                 pos := aStream position
             ].
             aString := aStream nextChunk.
-            done := aString isNil or:[aString isEmpty].
+            done := aString size == 0.
             done ifFalse:[
                 primSpec notNil ifTrue:[
                     ignore ifFalse:[
@@ -330,7 +332,7 @@
 
     "Modified: 9.9.1995 / 15:29:08 / claus"
     "Created: 5.9.1996 / 17:45:45 / cg"
-    "Modified: 14.2.1997 / 18:27:15 / cg"
+    "Modified: 14.10.1997 / 16:15:38 / cg"
 ! !
 
 !ClassCategoryReader methodsFor:'private'!
@@ -370,6 +372,6 @@
 !ClassCategoryReader class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic/Attic/CCReader.st,v 1.34 1997-02-14 17:28:58 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/Attic/CCReader.st,v 1.35 1997-10-15 12:30:30 cg Exp $'
 ! !
 ClassCategoryReader initialize!

--- a/ClassCategoryReader.st	Wed Oct 15 14:30:19 1997 +0200
+++ b/ClassCategoryReader.st	Wed Oct 15 14:30:30 1997 +0200
@@ -10,6 +10,8 @@
  hereby transferred.
 "
 
+'From Smalltalk/X, Version:3.2.1 on 14-oct-1997 at 11:17:15 pm'                 !
+
 Object subclass:#ClassCategoryReader
 	instanceVariableNames:'myClass myCategory privacy ignore primSpec'
 	classVariableNames:'KeepSource SourceMode SkipUnchangedMethods'
@@ -186,7 +188,7 @@
      errors and notifications are passed to requestor.
      If passChunk is true, chunks are given to the requestor,
      via a #source: message, allowing it to open a view showing any
-     arronous source code.
+     erronous source code.
      If oneChunkOnly is true, the fileIn is finished after the first chunk."
 
     |aString done method compiler canMakeSourceRef sourceFile pos nm src s|
@@ -223,9 +225,9 @@
             "/
             "/ only do it, if the sourceFiles name
             "/ ends with '.st'
-            "/ this prevents methods to reference the changes file.
+            "/ this prevents methods from referencing the changes file.
             "/
-            (sourceFile endsWith:'.st') ifTrue:[
+            (sourceFile asFilename hasSuffix:'st') ifTrue:[
                 canMakeSourceRef := true.
 
                 SourceMode == #absReference ifFalse:[
@@ -247,7 +249,7 @@
                 pos := aStream position
             ].
             aString := aStream nextChunk.
-            done := aString isNil or:[aString isEmpty].
+            done := aString size == 0.
             done ifFalse:[
                 primSpec notNil ifTrue:[
                     ignore ifFalse:[
@@ -330,7 +332,7 @@
 
     "Modified: 9.9.1995 / 15:29:08 / claus"
     "Created: 5.9.1996 / 17:45:45 / cg"
-    "Modified: 14.2.1997 / 18:27:15 / cg"
+    "Modified: 14.10.1997 / 16:15:38 / cg"
 ! !
 
 !ClassCategoryReader methodsFor:'private'!
@@ -370,6 +372,6 @@
 !ClassCategoryReader class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic/ClassCategoryReader.st,v 1.34 1997-02-14 17:28:58 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/ClassCategoryReader.st,v 1.35 1997-10-15 12:30:30 cg Exp $'
 ! !
 ClassCategoryReader initialize!