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