--- a/UninterpretedBytes.st	Thu Aug 13 15:29:54 2009 +0200
+++ b/UninterpretedBytes.st	Thu Aug 13 17:19:47 2009 +0200
@@ -1500,6 +1500,8 @@
         pointer = __externalBytesVal(value);
         if (pointer == (OBJ *)0)
             pointer = 0;
+    } else if (value == nil) {
+        pointer = 0;
     } else goto bad;
 
     if (__isSmallInteger(index)) {
@@ -2467,5 +2469,5 @@
 !UninterpretedBytes class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic/UninterpretedBytes.st,v 1.69 2009-08-13 12:56:48 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/UninterpretedBytes.st,v 1.70 2009-08-13 15:19:47 cg Exp $'
 ! !