--- a/String.st	Tue May 14 17:40:22 1996 +0200
+++ b/String.st	Wed May 15 02:13:33 1996 +0200
@@ -143,9 +143,10 @@
 		instsize = OHDR_SIZE + __OBJS2BYTES__(nInstVars) + len + 1;
 	    }
 
-	    __PROTECT_CONTEXT__
+	    __PROTECT_CONTEXT__;
 	    __qNew(newString, instsize, SENDER);
-	    __UNPROTECT_CONTEXT__
+	    __UNPROTECT_CONTEXT__;
+
 	    if (newString == nil) goto fail;
 	    __InstPtr(newString)->o_class = self;
 	    __qSTORE(newString, self);
@@ -1456,10 +1457,11 @@
 	    }
 	    if (index2 <= len) {
 		count = index2 - index1 + 1;
+		sz = OHDR_SIZE + count + 1;
 		__PROTECT_CONTEXT__
-		sz = OHDR_SIZE + count + 1;
 		__qNew(newString, sz, SENDER);
 		__UNPROTECT_CONTEXT__
+
 		if (newString != nil) {
 		    __InstPtr(newString)->o_class = String;
 		    dstp = __stringVal(newString);
@@ -2207,5 +2209,5 @@
 !String class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic/String.st,v 1.80 1996-05-12 15:37:41 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/String.st,v 1.81 1996-05-15 00:13:33 werner Exp $'
 ! !