anchor.diff:           (push args (vm-stack vm))
            (incf (vm-program-counter vm))
            (if (stringp args)
  -             ;; 1 for the strings, the rest for the contents
  +             ;; 1 for the string, the rest for the contents
                (increment-cells-quota vm (1+ (length args)))
   
                ;; for the pushed value
  
positive.code:     (setf (vm-should-take-a-nap vm) t))
    (check-cells-quota vm)
    (when (vm-not-finished vm)
      (let* ((instruction (elt (vm-bytecode vm) (vm-program-counter vm)))
             (opcode (instruction-opcode instruction))
             (args (instruction-arguments instruction)))
        (alexandria:when-let ((start-pos (instruction-start-pos instruction))
  
negative.code:          (count-structure (vm-stack vm))))))
  
  (defun step-vm (vm)
    (check-vm-without-error vm)
    (when (and (vm-total-ticks-quota vm)
               (>= (vm-executed-ticks vm)
  