--- a/CVSSourceCodeManager.st	Wed Feb 20 12:02:12 2002 +0100
+++ b/CVSSourceCodeManager.st	Mon Feb 25 20:58:35 2002 +0100
@@ -1537,7 +1537,7 @@
     revision isNil ifTrue:[ 
         force ifFalse:[
             ('CVSSourceCodeManager [warning]: class ' , className, ' has no revision string') errorPrintCR.
-            (cls theMetaclass implements:#version) ifTrue:[
+            (cls theMetaclass includesSelector:#version) ifTrue:[
                 answer := Dialog 
                             confirm:('Class %1 has no (usable) revision string.\\Check in as newest ?' bindWith:className) withCRs
                             noLabel:'Cancel'.
@@ -4263,6 +4263,6 @@
 !CVSSourceCodeManager class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic3/CVSSourceCodeManager.st,v 1.248 2002-02-08 14:49:14 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic3/CVSSourceCodeManager.st,v 1.249 2002-02-25 19:58:35 cg Exp $'
 ! !
 CVSSourceCodeManager initialize!

--- a/HTMLDocGenerator.st	Wed Feb 20 12:02:12 2002 +0100
+++ b/HTMLDocGenerator.st	Mon Feb 25 20:58:35 2002 +0100
@@ -12,6 +12,8 @@
 
 
 
+"{ Package: 'stx:libhtml' }"
+
 Object subclass:#HTMLDocGenerator
 	instanceVariableNames:''
 	classVariableNames:''
@@ -1094,7 +1096,7 @@
     sel := selector asSymbol.
     Smalltalk allClassesDo:[:cls |
         cls isPrivate ifFalse:[
-            (cls implements:sel) ifTrue:[
+            (cls includesSelector:sel) ifTrue:[
                 classes add:cls
             ]
         ]
@@ -1771,5 +1773,5 @@
 !HTMLDocGenerator class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic3/HTMLDocGenerator.st,v 1.33 2000-03-24 16:43:16 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic3/HTMLDocGenerator.st,v 1.34 2002-02-25 19:57:49 cg Exp $'
 ! !