Ah, ok, then it has just been changed in the Scratch image (more exactly the BYOB 1.3 image I'm working from, I don't know about Scratch per se), were the implementation is:
/ aNumber "Refer to the comment in Number / "
| quoRem | aNumber isInteger ifTrue: [quoRem _ self digitDiv: aNumber abs "*****I've added abs here*****" neg: self negative ~~ aNumber negative. (quoRem at: 2) = 0 ifTrue: [^ (quoRem at: 1) normalize] ifFalse: [^ self asFloat / aNumber]]. ^ aNumber adaptToInteger: self andSend: #/
Stef