--- a/ExternalBytes.st Tue Oct 24 17:52:18 2006 +0200
+++ b/ExternalBytes.st Tue Oct 24 20:20:51 2006 +0200
@@ -1224,7 +1224,9 @@
wasBlocked := OperatingSystem blockInterrupts.
"/ AccessLock critical:[
- AllocatedInstances remove:self ifAbsent:nil.
+ AllocatedInstances notNil ifTrue:[
+ AllocatedInstances remove:self ifAbsent:nil.
+ ].
"/ ]
wasBlocked ifFalse:[OperatingSystem unblockInterrupts].
! !
@@ -1275,7 +1277,7 @@
!ExternalBytes class methodsFor:'documentation'!
version
- ^ '$Header: /cvs/stx/stx/libbasic/ExternalBytes.st,v 1.65 2006-10-24 15:52:18 mb Exp $'
+ ^ '$Header: /cvs/stx/stx/libbasic/ExternalBytes.st,v 1.66 2006-10-24 18:20:51 stefan Exp $'
! !
ExternalBytes initialize!