--- a/Tools__Tag.st	Sun May 08 10:58:17 2011 +0200
+++ b/Tools__Tag.st	Sun May 08 10:58:28 2011 +0200
@@ -27,6 +27,13 @@
 	privateIn:Tag
 !
 
+Tag subclass:#TDocumentation
+	instanceVariableNames:''
+	classVariableNames:''
+	poolDictionaries:''
+	privateIn:Tag
+!
+
 Tag subclass:#TElement
 	instanceVariableNames:''
 	classVariableNames:''
@@ -430,6 +437,14 @@
 
 !
 
+isDocumentationTag
+    "return true, if this is a doc tag 
+    "
+    ^ false
+
+    "Created: / 08-05-2011 / 10:06:11 / cg"
+!
+
 isEnumMemberTag
     ^ false
 
@@ -618,6 +633,43 @@
 
 ! !
 
+!Tag::TDocumentation class methodsFor:'accessing'!
+
+typeIdentifier
+    ^ 'D'
+
+    "Modified: / 08-05-2011 / 10:06:26 / cg"
+! !
+
+!Tag::TDocumentation class methodsFor:'documentation'!
+
+documentation
+"
+    this is a synthetic element, used to mark special
+    documentation found in some languages:
+        lisp:   lines starting with ';;;'
+        java    (could detect @xxx javadoc or similar in the future)
+"
+! !
+
+!Tag::TDocumentation methodsFor:'accessing'!
+
+typeString
+    ^ 'documentation'
+
+    "Modified: / 08-05-2011 / 10:05:52 / cg"
+! !
+
+!Tag::TDocumentation methodsFor:'testing'!
+
+isDocumentationTag
+    "return true, if this is a doc tag 
+    "
+    ^ true
+
+    "Created: / 08-05-2011 / 10:06:03 / cg"
+! !
+
 !Tag::TElement class methodsFor:'accessing'!
 
 typeIdentifier
@@ -1199,5 +1251,5 @@
 !Tag class methodsFor:'documentation'!
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libtool/Tools__Tag.st,v 1.1 2011-05-06 08:35:50 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/Tools__Tag.st,v 1.2 2011-05-08 08:58:28 cg Exp $'
 ! !