@@ -735,10 +735,16 @@
 		@throw [OFOutOfRangeException newWithClass: isa];
 
 	return [OFString stringWithCString: string + start
 				    length: end - start];
 }
+
+- (OFString*)substringWithRange: (of_range_t)range
+{
+	return [self substringFromIndex: range.start
+				toIndex: range.start + range.length];
+}
 
 - (OFString*)stringByAppendingString: (OFString*)str
 {
 	return [[OFMutableString stringWithString: self] appendString: str];
 }