--- a/Class.st	Fri Aug 11 05:05:04 1995 +0200
+++ b/Class.st	Fri Aug 11 05:11:55 1995 +0200
@@ -22,7 +22,7 @@
 COPYRIGHT (c) 1989 by Claus Gittinger
 	      All Rights Reserved
 
-$Header: /cvs/stx/stx/libbasic/Class.st,v 1.50 1995-08-11 02:59:31 claus Exp $
+$Header: /cvs/stx/stx/libbasic/Class.st,v 1.51 1995-08-11 03:11:55 claus Exp $
 '!
 
 !Class class methodsFor:'documentation'!
@@ -43,7 +43,7 @@
 
 version
 "
-$Header: /cvs/stx/stx/libbasic/Class.st,v 1.50 1995-08-11 02:59:31 claus Exp $
+$Header: /cvs/stx/stx/libbasic/Class.st,v 1.51 1995-08-11 03:11:55 claus Exp $
 "
 !
 
@@ -73,7 +73,9 @@
 					sources are found 
 
 	package         <Symbol>        the package, in which the class was defined
-					(not currently used)
+					(inserted by compilers)
+
+	revision	<String>	revision string - inserted by stc
 
 	history         <any>           a place for a history string (not currently used)
 
@@ -614,6 +616,29 @@
     package := aStringOrSymbol
 !
 
+revision
+    "return the revision-ID of the class.
+     This is valid for stc-compiled classes only, and corresponds to the
+     rcs-id of the source from which this class was compiled.
+     To check if a source corresponds to a compiled binary, compare this 
+     ID with the one found in the version-methods comment."
+
+    ^ revision
+
+    "
+     Object revision
+    "
+!
+
+revision:aString
+    "set the revision-ID.
+     This should normally not be done in the running system, as the source-manager
+     will need this to validate sourcefiles being correct for a given binary
+     (and optionally: extracting the required sourcefile from the rcs source)"
+
+    revision := aString
+!
+
 history 
     "return the history  of the class"