--- a/Method.st	Thu Aug 01 19:07:10 1996 +0200
+++ b/Method.st	Fri Aug 02 20:14:11 1996 +0200
@@ -237,9 +237,13 @@
 !
 
 maxNumberOfArguments
-    "this limit will be removed in one of the next versions ..."
+    "return the maximum number of arguments a method can have.
+     This is a limit in the VM, which may be removed in one of 
+     the next versions ..."
 
-    ^ 15  "cannot be easily changed; should ask the VM about this number"
+%{  /* NOCONTEXT */
+    RETURN (__MKSMALLINT(MAX_METHOD_ARGS));
+%}
 !
 
 methodPrivacySupported
@@ -1450,23 +1454,24 @@
 	  }
 	}
     }
-%}
-.
+%}.
     (argArray isMemberOf:Array) ifFalse:[
 	"
 	 arguments must be either nil or an array
 	"
 	^ self badArgumentArray
     ].
+
     (argArray size ~~ self numberOfMethodArgs) ifTrue:[
 	"
 	 the method expects a different number of arguments
 	"
 	^ self wrongNumberOfArguments:argArray size
     ].
-    "
-     the VM only supports a limited number of arguments in sends
-    "
+    
+    "/ the VM only supports a limited number of arguments in sends
+    "/ (currently, 15)
+    
     ^ self tooManyArguments
 
     "
@@ -2136,6 +2141,6 @@
 !Method  class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic/Method.st,v 1.92 1996-07-03 09:02:35 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/Method.st,v 1.93 1996-08-02 18:13:32 cg Exp $'
 ! !
 Method initialize!