--- 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!