--- a/Class.st	Tue Sep 09 04:57:04 1997 +0200
+++ b/Class.st	Tue Sep 09 19:26:58 1997 +0200
@@ -10,7 +10,7 @@
  hereby transferred.
 "
 
-'From Smalltalk/X, Version:3.1.9 on 8-sep-1997 at 12:47:46 am'                  !
+'From Smalltalk/X, Version:3.1.9 on 9-sep-1997 at 12:06:42 am'                  !
 
 ClassDescription subclass:#Class
 	instanceVariableNames:'name category classvars comment subclasses classFilename package
@@ -3152,11 +3152,11 @@
         c := revision first.
         c == $$ ifTrue:[
             info := Class revisionInfoFromString:revision.
-            info isNil ifTrue:[^ 0].
-            ^ info at:#revision ifAbsent:0.
+            info isNil ifTrue:[^ '0'].
+            ^ info at:#revision ifAbsent:'0'.
         ].
         c isDigit ifFalse:[
-            ^ 0
+            ^ '0'
         ].
     ].
 
@@ -3179,7 +3179,7 @@
 
     "Created: 7.12.1995 / 10:58:47 / cg"
     "Modified: 1.4.1997 / 23:33:01 / stefan"
-    "Modified: 23.5.1997 / 09:09:14 / cg"
+    "Modified: 9.9.1997 / 12:05:41 / cg"
 !
 
 packageSourceCodeInfo
@@ -3820,5 +3820,5 @@
 !Class class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic/Class.st,v 1.290 1997-09-08 18:05:32 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/Class.st,v 1.291 1997-09-09 17:26:58 cg Exp $'
 ! !