--- a/HTMLDocGenerator.st	Wed Feb 18 19:21:16 2015 +0100
+++ b/HTMLDocGenerator.st	Thu Feb 19 13:17:35 2015 +0100
@@ -11,6 +11,8 @@
 "
 "{ Package: 'stx:libbasic3' }"
 
+"{ NameSpace: Smalltalk }"
+
 Object subclass:#HTMLDocGenerator
 	instanceVariableNames:'outStream pathToTopOfDocumentation
 		pathToLanguageTopOfDocumentation httpRequestOrNil
@@ -1601,7 +1603,7 @@
     "/ (otherwise, I'll say that this method is both
     "/  a subres and and obsolete method ...)
 
-    isSubres := (aMethod sends:#'subclassResponsibility' or:#'subclassResponsibility:').
+    isSubres := aMethod sendsAny:#( #'subclassResponsibility' #'subclassResponsibility:' ).
 
     isObsolete := aMethod isObsolete.
     "/ the above checks for the obsolete-resource flag;
@@ -2986,10 +2988,10 @@
 !HTMLDocGenerator class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic3/HTMLDocGenerator.st,v 1.99 2014-11-22 00:29:29 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic3/HTMLDocGenerator.st,v 1.100 2015-02-19 12:17:35 cg Exp $'
 !
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libbasic3/HTMLDocGenerator.st,v 1.99 2014-11-22 00:29:29 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic3/HTMLDocGenerator.st,v 1.100 2015-02-19 12:17:35 cg Exp $'
 ! !