--- a/Class.st	Fri Aug 16 13:49:15 2002 +0200
+++ b/Class.st	Fri Aug 16 13:49:35 2002 +0200
@@ -362,15 +362,16 @@
     "Modified: 20.6.1997 / 17:18:26 / cg"
 !
 
-isStartableWithMain
-    "return true, if this is an application class,
-     which can be started via #main"
-
-    ^ self theMetaclass includesSelector:#main
-
-    "Created: / 2.11.2001 / 09:37:01 / cg"
-    "Modified: / 2.11.2001 / 09:48:05 / cg"
-!
+rename:newName
+    "same as renameTo: - for ST80 compatibility"
+
+    ^ Smalltalk renameClass:self to:newName.
+"/    ^ self renameTo:newName
+
+    "Created: / 18.6.1998 / 22:08:45 / cg"
+! !
+
+!Class methodsFor:'Compatibility - VW'!
 
 isVisualStartable
     "return true, if this is an application class,
@@ -379,15 +380,6 @@
     ^ false
 
     "Created: / 27.10.1997 / 16:42:05 / cg"
-!
-
-rename:newName
-    "same as renameTo: - for ST80 compatibility"
-
-    ^ Smalltalk renameClass:self to:newName.
-"/    ^ self renameTo:newName
-
-    "Created: / 18.6.1998 / 22:08:45 / cg"
 ! !
 
 !Class methodsFor:'accessing'!
@@ -3582,6 +3574,16 @@
     "
 !
 
+isStartableWithMain
+    "return true, if this is an application class,
+     which can be started via #main"
+
+    ^ self theMetaclass includesSelector:#main
+
+    "Created: / 2.11.2001 / 09:37:01 / cg"
+    "Modified: / 2.11.2001 / 09:48:05 / cg"
+!
+
 rootsOfTheWorld
     "return a collection of classes which have a nil superclass"
 
@@ -4708,5 +4710,5 @@
 !Class class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic/Class.st,v 1.415 2002-08-02 06:37:48 stefan Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/Class.st,v 1.416 2002-08-16 11:49:35 cg Exp $'
 ! !