Frank Shearar uploaded a new version of 45Deprecated to project The Trunk:
http://source.squeak.org/trunk/45Deprecated-fbs.6.mcz

==================== Summary ====================

Name: 45Deprecated-fbs.6
Author: fbs
Time: 6 July 2013, 4:39:00.871 pm
UUID: 24faca0f-b7ca-2c40-9f9b-550d101216b5
Ancestors: 45Deprecated-fbs.5

Actually deprecate the deprecated Kernel methods.

=============== Diff against 45Deprecated-fbs.5 ===============

Item was added:
+ ----- Method: Behavior>>whichSelectorsAssign: (in category '*45Deprecated') -----
+ whichSelectorsAssign: instVarName 
+ 	"Answer a Set of selectors whose methods store into the argument, 
+ 	instVarName, as a named instance variable."
+ 	
+ 	self deprecated: 'Use #whichSelectorsStoreInto:.'.
+ 	^self whichSelectorsStoreInto: instVarName!

Item was added:
+ ----- Method: CompiledMethod>>setMySourcePointer: (in category '*45Deprecated') -----
+ setMySourcePointer: srcPointer
+ 
+ 	self deprecated: 'Use #setSourcePointer: '.
+ 	
+ 	^ self setSourcePointer: srcPointer!

Item was added:
+ ----- Method: Integer>>asStringWithCommasSigned (in category '*45Deprecated') -----
+ asStringWithCommasSigned
+ 	"123456789 asStringWithCommasSigned"
+ 	"-123456789 asStringWithCommasSigned"
+ 	| digits |
+ self deprecated: 'Use #asStringWithCommasSigned:'.
+ 	digits := self abs printString.
+ 	^ String streamContents:
+ 		[:strm | 
+ 		self sign = -1 ifTrue: [strm nextPut: $-] ifFalse:[strm nextPut: $+].
+ 		1 to: digits size do: 
+ 			[:i | strm nextPut: (digits at: i).
+ 			(i < digits size and: [(i - digits size) \\ 3 = 0])
+ 				ifTrue: [strm nextPut: $,]]]!

Item was added:
+ ----- Method: Integer>>raisedToInteger:modulo: (in category '*45Deprecated') -----
+ raisedToInteger: exp modulo: m
+ 	self deprecated: 'rather use #raisedTo:modulo: for efficiency'.
+ 	(exp = 0) ifTrue: [^ 1].
+ 	exp even
+ 		ifTrue: [^ (self raisedToInteger: (exp // 2) modulo: m) squared \\ m]
+ 		ifFalse: [^ (self * (self raisedToInteger: (exp - 1) modulo: m)) \\ m].!

Item was added:
+ ----- Method: MethodDictionary>>methodArray (in category '*45Deprecated') -----
+ methodArray
+ 	
+ 	self deprecated: 'Use #array'.
+ 	^array!

Item was added:
+ ----- Method: Number>>isInf (in category '*45Deprecated') -----
+ isInf
+ 	self deprecated: 'Use #isInfinite instead'.
+ 	^self isInfinite!