--- a/ClassCategoryReader.st	Tue Jan 11 23:05:33 2000 +0100
+++ b/ClassCategoryReader.st	Wed Jan 12 10:09:11 2000 +0100
@@ -389,6 +389,8 @@
     "set the instance variables"
 
     myClass := aClass.
+    "/ ensure that the class is loaded.
+    myClass autoload.
     myCategory := aCategory.
     ignore := false
 !
@@ -397,6 +399,8 @@
     "set the instance variables"
 
     myClass := aClass.
+    "/ ensure that the class is loaded.
+    myClass autoload.
     primSpec := which.
     ignore := false
 ! !
@@ -420,6 +424,6 @@
 !ClassCategoryReader class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic/ClassCategoryReader.st,v 1.43 1999-09-08 13:43:40 stefan Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/ClassCategoryReader.st,v 1.44 2000-01-12 09:09:11 cg Exp $'
 ! !
 ClassCategoryReader initialize!