@@ -125,11 +125,11 @@
      (debug:print 0 *default-log-port* " message: "  ((condition-property-accessor 'exn 'message) exn))       
      (vector #f (vector exn call-chain dat))) ;; return some stuff for debug if an exception happens
    (cond
     ((not (vector? dat))                    ;; it is an error to not receive a vector
      (vector #f #f "remote must be called with a vector")       )
-    ((> *api-process-request-count* 25)
+    ((> *api-process-request-count* 20)
      (vector #f 'overloaded))
     (else  
      (let* ((cmd-in (vector-ref dat 0))
             (cmd    (if (symbol? cmd-in)
                         cmd-in