--- a/UninterpretedBytes.st	Wed Aug 10 01:23:17 2011 +0200
+++ b/UninterpretedBytes.st	Wed Aug 10 01:41:11 2011 +0200
@@ -1492,6 +1492,7 @@
 	__fetchBytePointerAndSize__(self, &cp, &sz);
 	if (cp) {
 	    unsigned INT idx = ((unsigned INT)__smallIntegerVal(index)) - 1;
+	    char *pointer;
 
 	    if ((idx+(sizeof(pointer)-1)) < sz) {
 		cp += idx;
@@ -1499,8 +1500,6 @@
 		 * aligned
 		 */
 		if (((INT)cp & (sizeof(pointer)-1)) == 0) {
-		    char *pointer;
-
 		    pointer = ((char **)cp)[0];
 		    RETURN (__MKEXTERNALADDRESS(pointer));
 		}
@@ -2902,9 +2901,9 @@
 !UninterpretedBytes class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic/UninterpretedBytes.st,v 1.78 2011-08-09 23:23:17 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/UninterpretedBytes.st,v 1.79 2011-08-09 23:41:11 cg Exp $'
 !
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libbasic/UninterpretedBytes.st,v 1.78 2011-08-09 23:23:17 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/UninterpretedBytes.st,v 1.79 2011-08-09 23:41:11 cg Exp $'
 ! !