--- a/Tools__Tag.st	Sun Sep 01 01:44:18 2013 +0200
+++ b/Tools__Tag.st	Sun Sep 01 09:31:11 2013 +0200
@@ -154,7 +154,7 @@
 !
 
 Tag subclass:#TMethod
-	instanceVariableNames:''
+	instanceVariableNames:'isMeta'
 	classVariableNames:''
 	poolDictionaries:''
 	privateIn:Tag
@@ -1177,10 +1177,16 @@
 
 !Tag::TMethod methodsFor:'accessing'!
 
+isMeta
+    ^ isMeta
+!
+
+isMeta:aBoolean
+    isMeta := aBoolean.
+!
+
 typeIdentifierInList
-    ^ 'M'
-
-
+    ^ isMeta ifTrue:['M'] ifFalse:['m']
 !
 
 typeString
@@ -1369,10 +1375,10 @@
 !Tag class methodsFor:'documentation'!
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libtool/Tools__Tag.st,v 1.7 2013-04-25 13:10:58 stefan Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/Tools__Tag.st,v 1.8 2013-09-01 07:31:11 cg Exp $'
 !
 
 version_SVN
-    ^ '§Id§'
+    ^ '$Id: Tools__Tag.st,v 1.8 2013-09-01 07:31:11 cg Exp $'
 ! !