--- a/ClassDescr.st	Sat Jun 06 02:00:21 1998 +0200
+++ b/ClassDescr.st	Sat Jun 06 15:10:37 1998 +0200
@@ -1131,6 +1131,18 @@
 
 !ClassDescription methodsFor:'fileIn interface'!
 
+commentStamp:aStamp prior:whatever
+    "return a ClassCategoryReader to read in and compile methods for me.
+     This was added to allow squeak code to be filedIn."
+
+    ^ Squeak::ClassCommentReader new
+        class:self 
+        category:#Comment
+        changeStamp:aStamp
+
+    "Modified: / 6.6.1998 / 01:47:06 / cg"
+!
+
 ignoredMethodsFor:aCategory
     "this is a speciality of ST/X - it allows quick commenting of methods
      from a source-file by replacing the 'methodsFor:' by 'ignoredMethodsFor:'.
@@ -2784,6 +2796,6 @@
 !ClassDescription class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic/Attic/ClassDescr.st,v 1.67 1998-04-25 12:29:57 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/Attic/ClassDescr.st,v 1.68 1998-06-06 13:10:37 cg Exp $'
 ! !
 ClassDescription initialize!

--- a/ClassDescription.st	Sat Jun 06 02:00:21 1998 +0200
+++ b/ClassDescription.st	Sat Jun 06 15:10:37 1998 +0200
@@ -1131,6 +1131,18 @@
 
 !ClassDescription methodsFor:'fileIn interface'!
 
+commentStamp:aStamp prior:whatever
+    "return a ClassCategoryReader to read in and compile methods for me.
+     This was added to allow squeak code to be filedIn."
+
+    ^ Squeak::ClassCommentReader new
+        class:self 
+        category:#Comment
+        changeStamp:aStamp
+
+    "Modified: / 6.6.1998 / 01:47:06 / cg"
+!
+
 ignoredMethodsFor:aCategory
     "this is a speciality of ST/X - it allows quick commenting of methods
      from a source-file by replacing the 'methodsFor:' by 'ignoredMethodsFor:'.
@@ -2784,6 +2796,6 @@
 !ClassDescription class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic/ClassDescription.st,v 1.67 1998-04-25 12:29:57 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/ClassDescription.st,v 1.68 1998-06-06 13:10:37 cg Exp $'
 ! !
 ClassDescription initialize!