Class.st
changeset 1786 6a60221f0c77
parent 1779 4dba26f3765d
child 1802 f9148cfae747
--- a/Class.st	Fri Oct 18 22:28:54 1996 +0200
+++ b/Class.st	Fri Oct 18 23:14:37 1996 +0200
@@ -4089,6 +4089,8 @@
     versionFromSource := Class revisionStringFromSource:src.
     versionFromSource = versionFromCode ifTrue:[^ true].
 
+    versionFromSource isNil ifTrue:[^ false].
+
     "/ mhmh - check my binary version ...
 
     info := Class revisionInfoFromString:versionFromSource.
@@ -4098,12 +4100,12 @@
     ].
     ^ false
 
-    "Modified: 16.10.1996 / 17:10:24 / cg"
+    "Modified: 18.10.1996 / 21:56:21 / cg"
 ! !
 
 !Class class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic/Class.st,v 1.192 1996-10-18 12:30:09 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/Class.st,v 1.193 1996-10-18 21:14:37 cg Exp $'
 ! !
 Class initialize!