Do I have the Smalltalk version right? size := 640*480*2. image := ByteArray new: size withAll: 0. lookup := ByteArray new: size withAll: 0. Time millisecondsToRun: [ 1 to: size do: [ :i | image at: i put: (lookup at: (image at: i ) + 1) ] ] "159" -- ..tom remove dashes in email for replies http://isectd.sourceforge.net