'From Squeak3.4beta of ''1 December 2002'' [latest update: #5156] on 20 December 2002 at 6:07:32 pm'! "Change Set: UUIDGEnBugFix-tpr Date: 20 December 2002 Author: tim@sumeru.stanford.edu Update 5150 tried to fix UUIDGEnerator's use of random seeding but used the wrong way of coping with the lack of /dev/urandom (which only appears to exist on a few unix platforms). Instead of #ifCurtailed: this patch uses [] on: FileStreamException do:[] which will trap any file related problem such as the file not existing or being unreadable. Maybe it will be good enough to help for now."! !UUIDGenerator methodsFor: 'random seed' stamp: 'tpr 12/20/2002 18:02'! makeUnixSeed | strm answer | [strm := (FileStream readOnlyFileNamed: '/dev/urandom') binary. answer := Integer byte1: strm next byte2: strm next byte3: strm next byte4: strm next. strm close. ] on: FileStreamException do: [answer := nil]. ^answer! !