--- a/Smalltalk.st	Wed Nov 02 18:49:55 2016 +0100
+++ b/Smalltalk.st	Wed Nov 02 20:38:37 2016 +0100
@@ -4541,14 +4541,13 @@
                                     StandAlone := true.
                                     self exitWithErrorMessage:'no such class: "', className, '".'
                                 ].
-                                class := class theMetaclass.
-                                (class implements:#main:) ifTrue:[
+                                (class respondsTo:#main:) ifTrue:[
                                     class main:CommandLineArguments.
                                 ] ifFalse:[    
-                                    (class implements:#main) ifTrue:[
+                                    (class respondsTo:#main) ifTrue:[
                                         class main.
                                     ] ifFalse:[    
-                                        (class implements:#start) ifTrue:[
+                                        (class respondsTo:#start) ifTrue:[
                                             class start.
                                         ] ifFalse:[    
                                             StandAlone := true.