ExternalBytes.st
changeset 10138 87c242cb7475
parent 10137 7bfdc51fcb65
child 10178 0b7c8611c70b
--- 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!