2007-01-22  Stephen Compall  <address@hidden>

	* kernel/Fraction.st: Print denominator for storeOn: as
	denominator, not numerator as denominator.
	Reported by J Pfersich.

--- orig/kernel/Fraction.st
+++ mod/kernel/Fraction.st
@@ -375,7 +375,7 @@
     aStream nextPutAll: '(Fraction numerator: ';
 	store: numerator;
 	nextPutAll: ' denominator: ';
-	store: numerator ;
+	store: denominator;
 	nextPut: $)
 ! !