--- a/ClassDescription.st	Wed May 01 08:02:01 2013 +0000
+++ b/ClassDescription.st	Thu May 02 19:14:23 2013 +0200
@@ -654,7 +654,6 @@
     "Modified: 23.4.1996 / 15:56:54 / cg"
 ! !
 
-
 !ClassDescription methodsFor:'Compatibility-Dolphin'!
 
 categoriesFor:aMethodSelector
@@ -1979,10 +1978,14 @@
     "return a ClassCategoryReader to read in and compile methods for me.
      This was added to allow squeak code to be filedIn."
 
+    Squeak::ClassCommentReader isNil ifTrue:[
+        Smalltalk loadPackage:'stx:libcompat'
+    ].
+
     ^ Squeak::ClassCommentReader new
-	class:self
-	category:#Comment
-	changeStamp:aStamp
+        class:self
+        category:#Comment
+        changeStamp:aStamp
 
     "Modified: / 6.6.1998 / 01:47:06 / cg"
 !
@@ -4227,11 +4230,11 @@
 !ClassDescription class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic/ClassDescription.st,v 1.235 2013-04-17 20:23:53 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/ClassDescription.st,v 1.236 2013-05-02 17:14:23 cg Exp $'
 !
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libbasic/ClassDescription.st,v 1.235 2013-04-17 20:23:53 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/ClassDescription.st,v 1.236 2013-05-02 17:14:23 cg Exp $'
 ! !