--- a/Class.st	Tue Dec 12 13:55:31 1995 +0100
+++ b/Class.st	Tue Dec 12 20:12:59 1995 +0100
@@ -253,7 +253,10 @@
 
 revisionInfoFromString:aString
     "return a dictionary filled with revision info.
-     This extracts the relevant info from aString."
+     This extracts the relevant info from aString.
+     For now, this is a bad design - should always ask the
+     SCM to extract the parts (knowing about the details of RCS headers
+     here is a bad design ...)"
 
     |words info nm mgr|
 
@@ -275,11 +278,13 @@
 	    nm := nm copyWithoutLast:2
 	].
 	info at:#fileName put:nm asFilename baseName.
-	info at:#revision put:(words at:3).
-	info at:#date put:(words at:4).
-	info at:#time put:(words at:5).
-	info at:#user put:(words at:6).
-	info at:#state put:(words at:7).
+	(words at:3) = '$' ifFalse:[
+	    info at:#revision put:(words at:3).
+	    info at:#date put:(words at:4).
+	    info at:#time put:(words at:5).
+	    info at:#user put:(words at:6).
+	    info at:#state put:(words at:7).
+	].
 	^ info
     ].
     ((words at:1) = '$Revision:') ifTrue:[
@@ -3369,6 +3374,6 @@
 !Class class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic/Class.st,v 1.106 1995-12-11 17:36:01 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/Class.st,v 1.107 1995-12-12 19:12:59 cg Exp $'
 ! !
 Class initialize!