public void stepTestOn(PrintWriter oo) {
	Stepper stepr;
	ScruSet keyPile;
	ScruSet valuePile;
	SetTable tab;
	oo.print("Test fetching of steppers (stepper at a key).\n"+
"");
	keyPile = testKeys();
	valuePile = testValues();
	tab = SetTable.make(testCS());
	Stepper stomper = keyPile.stepper();
	for (; stomper.hasValue(); stomper.step()) {
		Position key = (Position) stomper.fetch();
		if (key == null) {
			continue ;
		}
		Stepper stomper2 = valuePile.stepper();
		for (; stomper2.hasValue(); stomper2.step()) {
			Heaper val = (Heaper) stomper2.fetch();
			if (val == null) {
				continue ;
			}
			tab.introduce(key, val);
		}
		stomper2.destroy();
	}
	stomper.destroy();
	Stepper stomper3 = keyPile.stepper();
	for (; stomper3.hasValue(); stomper3.step()) {
		Position key2 = (Position) stomper3.fetch();
		if (key2 == null) {
			continue ;
		}
		MuSet valSet;
		valSet = testValues().asMuSet();
		stepr = tab.stepperAt(key2);
		oo.print("stepper for key ");
		oo.print(key2);
		oo.print(" is ");
		oo.print(stepr);
		oo.print("\n"+
"");
		Stepper stomper4 = stepr;
		for (; stomper4.hasValue(); stomper4.step()) {
			Heaper val3 = (Heaper) stomper4.fetch();
			if (val3 == null) {
				continue ;
			}
			valSet.remove(val3);
		}
		stomper4.destroy();
		if ( ! valSet.isEmpty()) {
			oo.print("valSet contains ");
			oo.print(valSet);
			oo.print("\n"+
"");
		}
	}
	stomper3.destroy();
	oo.print("end of stepperAt: test\n"+
"\n"+
"");
/*
udanax-top.st:61594:SetTableTester methodsFor: 'tests'!
{void} stepTestOn: oo {ostream reference}
	| stepr {Stepper} keyPile {ScruSet of: Position} valuePile {ScruSet of: Heaper} 
	 tab {SetTable} |
	oo << 'Test fetching of steppers (stepper at a key).
'.
	keyPile _ self testKeys.
	valuePile _ self testValues.
	tab _ SetTable make: self testCS.
	keyPile stepper forEach: [:key {Position} |
		valuePile stepper forEach: [:val {Heaper} |
			tab at: key introduce: val]].
	keyPile stepper forEach: [:key2 {Position} | | valSet {MuSet} |
		valSet _ self testValues asMuSet.
		stepr _ tab stepperAt: key2.
		oo << 'stepper for key ' << key2 << ' is ' << stepr << '
'.
		stepr forEach: [:val3 {Heaper} |
			valSet remove: val3].
		valSet isEmpty not ifTrue: [oo << 'valSet contains ' << valSet << '
']].
	oo << 'end of stepperAt: test
'.!
*/
}