# HG changeset patch
# User Claus Gittinger <cg@exept.de>
# Date 860890738 -7200
# Node ID c3a2791de2898a53c9a52926e27ddd0acff530c1
# Parent  b401cd5167e3868cefec863a0ce4170339287e1c
care for unloaded methods, when validating the source revision

diff -r b401cd5167e3 -r c3a2791de289 Class.st
--- a/Class.st	Sun Apr 13 00:13:21 1997 +0200
+++ b/Class.st	Sun Apr 13 02:18:58 1997 +0200
@@ -4823,17 +4823,17 @@
         versionMethod := cls compiledMethodAt:#version.
         (versionMethod isNil
         or:[versionMethod isExecutable not]) ifTrue:[
-            cannotCheckReason := 'no version method'.
+            cannotCheckReason := 'no valid version method'.
         ]
-    ].
-
-    "/
-    "/ if its a method returning the string,
-    "/ thats the returned value
-    "/
-    versionFromCode := cls version.
-    versionFromCode isString ifFalse:[
-        cannotCheckReason := 'version method does not return a string'
+    ] ifFalse:[
+        "/
+        "/ if its a method returning the string,
+        "/ thats the returned value
+        "/
+        versionFromCode := cls version.
+        versionFromCode isString ifFalse:[
+            cannotCheckReason := 'version method does not return a string'
+        ].
     ].
 
     "/
@@ -4885,12 +4885,12 @@
     ].
     ^ false
 
-    "Modified: 10.1.1997 / 15:36:51 / cg"
+    "Modified: 13.4.1997 / 02:18:09 / cg"
 ! !
 
 !Class class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic/Class.st,v 1.272 1997-04-01 16:05:27 ca Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/Class.st,v 1.273 1997-04-13 00:18:58 cg Exp $'
 ! !
 Class initialize!