--- a/SourceRevisionItem.st	Tue Feb 15 17:47:37 2000 +0100
+++ b/SourceRevisionItem.st	Tue Feb 15 17:49:27 2000 +0100
@@ -83,10 +83,21 @@
     ^true
 
 
+!
+
+isSourceRevisionItem
+"
+Used for testing tree items. The receiver is a source revision item.
+
+<return: Boolean>
+"
+
+    ^true
+
 ! !
 
 !SourceRevisionItem class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libtool/SourceRevisionItem.st,v 1.3 2000-01-14 15:56:48 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/SourceRevisionItem.st,v 1.4 2000-02-15 16:49:11 ps Exp $'
 ! !