--- a/ClassCategoryReader.st	Tue Dec 11 21:21:45 2001 +0100
+++ b/ClassCategoryReader.st	Wed Dec 12 16:25:27 2001 +0100
@@ -295,6 +295,7 @@
                 pos := aStream position
             ].
             aString := aStream nextChunk.
+            aStream skipSeparators.
             done := aString size == 0.
             done ifFalse:[
                 primSpec notNil ifTrue:[
@@ -433,6 +434,6 @@
 !ClassCategoryReader class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic/ClassCategoryReader.st,v 1.48 2001-11-27 18:03:05 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/ClassCategoryReader.st,v 1.49 2001-12-12 15:25:27 cg Exp $'
 ! !
 ClassCategoryReader initialize!