public static String yieldQueryMenuString(Cons queries) {
    if (queries == Stella.NIL) {
      return ("");
    }
    { Cons queryitems = Stella.NIL;

      { Cons entry = null;
        Cons iter000 = queries;
        Cons collect000 = null;

        for (;!(iter000 == Stella.NIL); iter000 = iter000.rest) {
          entry = ((Cons)(iter000.value));
          if (collect000 == null) {
            {
              collect000 = Cons.cons(((StringWrapper)(entry.value)), Stella.NIL);
              if (queryitems == Stella.NIL) {
                queryitems = collect000;
              }
              else {
                Cons.addConsToEndOfConsList(queryitems, collect000);
              }
            }
          }
          else {
            {
              collect000.rest = Cons.cons(((StringWrapper)(entry.value)), Stella.NIL);
              collect000 = collect000.rest;
            }
          }
        }
      }
      queryitems = Cons.cons(Stella.getQuotedTree("((\"None\" \"----\") \"/ONTOSAURUS\")", "/ONTOSAURUS"), queryitems);
      return (OntosaurusUtil.yieldChoiceMenuString(queryitems, "NAME='QLIST' onChange='setSourceAndModule(this.selectedIndex)'"));
    }
  }